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ABSTRACT 


Zero-sum  budgeting,  downsizing,  and  increased  mission  requirements  make  it  more 
challenging  for  U.S.  Navy  leaders  to  understand  the  short  and  long-term  consequences  of  their 
decisions.  An  enterprise  model  of  the  Navy  could  provide  decision-makers  with  a  tool  to  study 
how  their  decisions  might  affect  the  Navy's  ability  to  conduct  worldwide  operations.  Agent- 
based  simulation  technology  provides  a  flexible  platform  to  model  the  complex  relationships 
between  the  Navy's  many  components.  Agent-based  modeling  uses  software  agents  to  define 
each  relevant  entity  of  the  system.  These  agents  have  the  ability  to  interact  with  their 
environment  and  learn  or  adapt  their  behaviors  while  trying  to  achieve  their  goals.  The 
aggregate  of  these  interactions  results  in  identifiable  behavior  patterns  known  as  emergent 
behaviors.  This  thesis  looks  at  two  methods  of  designing  the  underlying  architecture  for  a 
simple  agent-based  simulation.  A  classic  predator-prey  relationship  is  modeled  using  a 
Windows/C-H-  implementation  and  a  dynamically  extensible  Bamboo  implementation.  While 
the  Windows/C-H-  implementation  is  straightforward,  it  requires  definition  of  all  agents  before 
run-time.  Bamboo  is  more  challenging  to  implement,  but  allows  the  introduction  of  agents 
"on-the-fly",  and  can  easily  be  extended  for  distributed  implementation.  Both  appear  to  be 
viable  implementation  architectures  for  an  enterprise  model  of  the  Navy. 


VI 


TABLE  OF  CONTENTS 

I.  INTRODUCTION . 1 

A.  MOTIVATION . 1 

b.  Background . 2 

c.  Agent-Based  Modeling . 3 

d.  Bamboo . 5 

e.  Summary  of  Chapters . 9 

n.  AGENT-BASED  MODELING . U 

a.  Introduction . 11 

b.  agents . li 

1.  Interaction . 12 

2.  Adaptability . 14 

C.  Emergent  behaviors . 15 

D.  Summary . 16 

HI.  BAMBOO . 17 

a.  Introduction . 17 

b.  Dynamic  Extensibility . 17 

1.  Dependency . 17 

2.  Callbacks . 19 

3.  Event  Handling . 20 

c.  Summary . 20 

IV.  ARCHITECTURE . 21 

a.  Introduction . 21 

b.  Windows  /C++  Implementation . 23 

1.  Introduction . . 23 

2.  Interface . 23 

3.  Architecture . 25 

a.  Overall  Design. . . . 25 

b.  Agents . 2d 

c.  Base  Class . 27 

d.  Subclasses . 37 

e.  Agents  Summary . 34 

4.  Interactions . 34 

5.  Learning  and  Adaptation . 36 

6.  Emergent  Behaviors . 39 

7.  Windows/C++  Implementation  Summary . 41 

c.  Bamboo  Implementation . 41 

1.  Introduction . 41 

2.  Interface . 42 

3.  Architecture . 44 

a.  Overall  Design . 44 

b.  Agents . 44 

c.  Base  Class . 45 

d.  Subclasses . 46 

4.  Interactions . 47 

5.  Learning  and  Adaptation . 47 

6.  Bamboo  Implementation  Summary . 48 

d.  Summary . 49 


Vll 


V.  CONCLUSIONS . 51 

a.  Conclusion . 51 

B.  Future  work . 51 

1.  SimNavy  Agents . 51 

2.  Learning  and  Adaptation . 52 

3.  Networked  Applications . 52 

4.  SimNavy  Engine . 52 

APPENDIX  A:  IMPLEMENTATION  CODE  LISTINGS . 55 

APPENDIX  B:  GLOSSARY . 89 

LIST  OF  REFERENCES . 91 

BIBLIOGRAPHY . 93 

INITIAL  DISTRIBUTION  LIST . 95 


Vlll 


LIST  OF  FIGURES 


Figure  3.1:  Bamboo  Runtime  View . 1 8 

Figure  3.2:  Module  Dependency  V iew . 19 

Figure  3.3:  The  Callback  Handler . 20 

Figure  4. 1 :  Savannah  Windows/C-H-  Interface . 24 

Figure  4.2:  Savannah  Class  Structure . 27 

Figure  4.3:  Computation  of  Integer  xy  Position . 29 

Figure  4.4:  Method  to  Determine  if  Two  Animals  Can  Mate . 32 

Figure  4.5:  Method  to  Determine  if  Cheetah  Kills  Prey . 34 

Figure  4.6:  Learning  and  Adaptation  in  Savannah . 38 

Figure  4.7:  No  Predator  Knowledge . 39 

Figure  4.8:  Cheetah  Kills  Antelope . 39 

Figure  4.9:  Antelope  Learn  and  Flee . 39 

Figure  4.10:  Savannah  3D  with  Loaded  Modules . 43 

Figure  4.11:  Savannah  3D  Class  Structure . 45 


IX 


X 


ACKNOWLEDGEMENTS 

The  authors  would  like  to  express  our  appreciation  to  our  thesis  committee 
members,  Dr.  Mike  Zyda  and  Dr.  Rudy  Darken  for  their  assistance,  direction,  and 
dedication  throughout  our  course  of  study. 

Also,  for  his  guidance,  we  are  indebted  to  John  Hiles,  who  introduced  us  to  agent- 
based  modeling,  and  showed  great  patience  through  many  meetings. 

We  are  grateful  to  Kent  Watsen  who  encouraged  and  guided  the  Bamboo 
implementation  to  include  porting  the  simulation  to  the  latest  version  of  Bamboo. 

For  his  technical  support  in  the  graphics  lab  we  must  thank  Jimmy  Liberato. 

Finally,  for  their  love  and  support  we  thank  our  families,  especially  our  wives, 
Lauren  and  Kim,  and  our  kids,  Courtney,  Morgan,  and  Keegan. 


xi 


I.  INTRODUCTION 


A.  MOTIVATION 

Every  day  the  Navy’s  top  leaders  make  key  decisions  affecting  the  flow  of  money 
from  its  sources  down  to  its  resources.  These  decisions  have  certain  consequences  that 
impact  the  Navy’s  overall  warfare  capability,  which  is  a  direct  measure  of  the  Navy’s 
ability  to  meet  the  global  needs  of  the  nation.  Today,  with  the  current  trend  of  military 
downsizing  and  zero-sum  budgeting,  each  decision  made  has  a  greater  effect  on  the 
Navy’s  various  components  and  their  abilities  to  maintain  the  levels  of  readiness  needed 
for  a  strong,  effective  force.  Often,  the  effects  of  budget  decisions  may  not  be  felt  for  a 
number  of  years.  Under  the  current  process,  budget  planners  regularly  make  key 
decisions  with  neither  the  time  nor  ability  to  fully  model  how  these  decisions  might  affect 
the  Navy  in  the  future.  An  enterprise  model  of  the  U.S.  Navy  that  contained  the  proper 
relationships  between  the  Navy’s  budget  allocation  and  its  warfare  capability  could  assist 
leaders  in  understanding  the  potential  consequences  of  various  decisions.  This  insight 
would  help  those  individuals  make  more  informed  decisions  in  the  future. 

For  years,  the  entertainment  industry  has  developed  modeling  and  simulation 
technology  that  in  some  ways  surpassed  comparable  technology  developed  by  the 
Department  of  Defense  (DoD).  The  DoD  normally  develops  modeling  and  simulation 
technology  that  differs  greatly  in  use  from  that  of  the  entertainment  industry,  but  has 
realized  that  much  of  what  the  entertainment  industry  produces  can  replace,  or  enhance 
DoD  technology  with  significant  cost  savings.  A  recent  study  published  by  the  National 
Research  Council  (NRC),  “Modeling  and  Simulation:  Linking  Entertainment  and 
Defense,”  calls  for  the  DoD  to  work  with  and  learn  from  entertainment  companies  to 
better  meet  the  DoD  modeling  and  simulation  requirements  of  the  future  [1].  Asa  result 
of  this  study,  the  Director  of  Naval  Training  (N7)  requested  an  enterprise  model  of  the 
U.S.  Navy  be  developed  that  leveraged  expertise  from  the  entertainment  industry. 

The  first  decision  required  in  the  process  was  to  determine  what  type  of  modeling 
technology  existed  in  the  entertainment  industry  that  would  provide  the  best  approach  for 
modeling  the  U.S.  Navy.  The  Navy  is  a  constantly  evolving,  complex  system  made  up  of 
many  entities  with  sometimes-conflicting  goals.  To  model  this  system  requires  an 


1 


architecture  that  supports  that  evolution  and  the  intricate  interactions  of  the  various 
components.  After  some  consideration,  it  was  determined  that  agent-based  modeling, 
which  has  been  used  in  the  private  and  commercial  sectors  to  successfully  model  large- 
scale,  complex  systems,  would  provide  the  best  capabilities  with  which  to  develop  an 
enterprise  model  of  the  U.S.  Navy.  This  thesis  explores  some  of  the  fundamental  issues 
associated  with  developing  an  architecture  for  agent-based  simulations. 

B.  BACKGROUND 

Simulations  are  used  to  explore  outcomes  without  having  to  become  involved  in 
expensive,  time-consuming,  or  sometimes  dangerous  activities.  Within  this  framework, 
simulations  provide  a  way  to  answer  questions,  practice  skills,  or  rehearse  actions. 
Simulations  also  provide  a  platform  to  manipulate  things  in  ways  that  are  impossible  to 
do  with  real  systems.  They  can  be  started,  stopped,  restarted  with  new  assumptions,  and 
allow  the  introduction  of  entities  that  do  not  exist  in  the  real  world.  Various  techniques 
for  modeling  systems  have  been  around  as  long  as  humanity.  They  have  evolved  from 
arranging  stones  to  model  the  passing  of  the  seasons,  as  seen  at  Stonehenge  [2],  to  highly 
complex  computer  models  like  the  flight  simulators  used  to  train  pilots. 

The  fidelity  built  into  a  model  depends  on  the  kinds  of  questions  the  model  needs 
to  answer.  The  spectrum  of  fidelity  ranges  from  aggregated  or  high-level  models  that 
might  be  used  to  study  a  military  corps-level,  force-on-force  battle,  to  high-resolution  or 
low-level  models  that  might  be  used  to  study  the  human  interactions  of  a  peacekeeping 
operation.  The  ability  to  increase  the  fidelity  of  models  has  paralleled  the  development 
of  high-speed  computers.  As  processors  and  memory  have  gotten  bigger,  faster,  and  less 
expensive,  modelers  have  been  able  to  build  simulations  that  are  more  intricate. 

Although  this  capability  exists,  high-resolution  models  are  not  appropriate  in  every 
circumstance.  They  are,  however,  particularly  applicable  to  modeling  systems  where 
representation  down  to  the  entity  level  is  pertinent. 

Not  only  is  capturing  entity  level  interaction  important  to  the  result,  but  so  is 
studying  how  these  entities  adapt  and  adjust  based  on  these  interactions.  The  resulting 
complexity  of  these  kinds  of  simulations  led  to  the  development  of  agent-based 
simulations.  Because  agent-based  simulations  represent  the  dynamics  of  non-linear 
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interactions  and  adaptive  behaviors,  they  provide  an  outstanding  environment  to  practice 
decision-making  skills,  and  conduct  training  and  rehearsals  [3], 

C.  AGENT-BASED  MODELING 

Complex  natural  environments  or  complex  systems  present  researchers  trying  to 
model  and  study  them  with  many  difficult  issues.  Many  real  world  systems,  often 
referred  to  as  complex  adaptive  systems,  include  individual  or  local  entities  that  have  the 
ability  to  adapt  to  their  environment  and  change  their  techniques  for  interacting  with 
other  local  entities.  A  perfect  example  of  this  is  the  Earth,  which  has  thousands  of  types 
(species)  of  individuals  each  with  its  own  rules  for  interacting  with  and  adapting  to  its 
environment.  Over  time,  species  adapt  to  ensure  they  accomplish  their  goal,  which  for 
most,  is  simply  the  survival  of  the  species.  The  adaptive  properties  of  the  individuals 
often  affect  the  system  as  a  whole  in  variable  and  unpredictable  ways;  basically,  the 
behavior  of  the  whole  system  does  not  equal  the  sum  of  the  individual  components’ 
behaviors.  This  phenomenon  is  known  as  emergent  behavior,  and  when  modeling  certain 
systems  tends  to  render  traditional  deterministic  or  stochastic  modeling  techniques 
inferior. 

A  common  method  of  studying  complex  adaptive  systems  is  through  the  use  of 
computer  simulations  -  called  adaptive,  agent-based  simulations.  Researchers  trying  to 
model  their  system  can  develop  adaptive  software  agents  that  represent  individual  entities 
each  with  its  own  rules  that  describe  how  it  should  interact  with  its  environment.  What 
makes  the  agent  adaptive  is  that  it  can  revise  its  rules  of  behavior  based  on  what  it  has 
learned  from  previous  interactions.  Adjusting  its  rules  as  it  learns  means  the  agent 
ensures  that  similar  or  repeated  interactions  will  certainly  produce  different  outcomes 
each  time.  Provided  each  agent  is  properly  studied  and  modeled,  the  system  as  a  whole 
will  exhibit  the  same  emergent  behaviors  as  would  be  found  in  the  real  world  providing 
the  researcher  with  many  insights  to  the  behaviors  of  the  entire  system. 

Agent-based  simulations  are  most  commonly  used  for  entertainment  and  training. 
They  provide  an  environment  where  a  player,  or  person  using  the  simulation,  can  view 
the  potential  consequences  of  their  decision.  Perhaps  the  most  widely  recognized 
entertainment  applications  are  the  simulation  games  produced  by  Maxis,  in  particular. 
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SimCity  Classic  and  SimCity  2000,  which  together  have  sold  nearly  six  million  copies, 
making  them  among  of  the  best  selling  computer  games  of  all  time  [4],  While  gaming  is 
a  big  market  for  agent-based  models,  the  same  technology  is  gaining  popularity  for 
training  people  on  the  dynamics  of  everything  from  budgeting  to  crowd  control. 

In  the  SimCity  games,  a  player  is  "given  a  plot  of  barren  land  to  zone  into 
industrial,  residential,  and  commercial  areas.  As  the  city  grows,  the  player  must  deal 
with  crime,  education,  and  health  issues  by  strategically  placing  police  stations,  schools, 
and  hospitals.  Manage  traffic,  the  budget,  and  the  needs  of  the  constituents,  or  face  riots, 
ridicule  in  the  press,  and  eventual  impeachment!"  [5]  The  entity  level  interactions  are 
controlled  through  an  agent-based  implementation;  agents  are  the  constituents.  If  a 
residential  zone  is  provided  water  and  electricity,  people  will  build  homes  there. 
Population  growth  will  stagnate  unless  industrial  and  commercial  zones  are  designated 
facilitating  the  growth  of  schools,  police,  fire  and  medical  protection,  jobs  and  leisure 
opportunities.  If  an  area  becomes  too  crowded  or  is  not  properly  balanced;  agents 
interact  causing  riots,  shifting  the  populations  to  more  attractive  locations,  and  possibly 
leaving  the  city  altogether.  Much  like  a  real  city,  these  simulated  cities  persist  while 
there  is  constant  change  taking  place. 

Although  SimCity  is  an  entertainment  application,  the  use  of  similar  agent-based 
technology  can  provide  city  managers  useful  insight  into  the  dynamics  of  city  planning 
where  they  are  able  to  view  potential  consequences  of  their  decisions.  For  example, 
"What  happens  if  we  raise  property  taxes  by  5%?",  "What  happens  if  we  cut  the  police 
force  budget  or  remove  some  police  stations?"  or  "What  happens  if  we  build  a  zoo  on  the 
North  end  of  the  city?"  While  these  simulations  will  not  provide  direct  answers  to  the 
questions,  they  do  provide  the  city  manager  with  possible  results  of  his  actions.  As  the 
city  manager  runs  through  many  iterations  of  one  scenario,  the  new  zoo  for  instance,  he 
can  identify  possibilities  of  how  the  new  zoo  might  affect  the  city  as  a  whole  -  he  can 
experiment.  The  zoo  may  bring  in  more  tourists,  cause  nearby  developments  to  increase, 
decrease,  or  stagnate,  cause  traffic  problems,  or  have  little  effect  at  all.  The  bottom  line 
is  the  simulation  can  identify  potential  issues  the  city  manager  might  not  have  considered 
otherwise. 
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An  example  of  a  simulation  that  could  easily  be  adapted  for  military  purposes  is 
CACTUS,  an  agent-based  simulation  developed  to  train  senior  police  officers  in  the 
dynamics  of  crowd  control  [6].  The  training  simulation  used  before  CACTUS  consisted 
of  a  manual,  pseudo-control  room  with  incidents  story-boarded  before  executing  an 
expensive,  time-consuming,  and  inflexible  training  exercise.  Additionally,  after  action 
reviews  were  very  limited,  consisting  mostly  of  discussion  based  on  what  people  could 
remember  and  what  few  notes  had  been  taken.  An  agent-based  simulation  was 
introduced  because  it  provided  a  platform  for  more  realistic  incidents  to  develop,  was  less 
expensive  to  develop,  was  very  flexible,  and  could  be  recorded  for  playback  [6]. 

The  methodology  behind  CACTUS  is  easily  transferable  to  training  military 
participants  in  the  nuances  of  peacekeeping  operations  such  as  those  now  being 
conducted  in  the  republics  of  the  former  Yugoslavia.  These  types  of  simulations  provide 
key  players  the  opportunity  to  plan  for  and  rehearse  actions  to  unexpected  situations  that 
were  not  realistically  represented  in  the  previous  planning  and  training  cycle. 

An  important  note  on  adaptive  agent-based  simulations  is  that  they  do  not  predict 
the  future  because  as  events  occur,  there  are  infinitely  many  new  states  to  which  the 
current  state  of  the  environment  may  transition.  These  types  of  simulations  only  suggest 
individual  states  as  possibilities  and  therefore  do  not  guarantee  the  real  world  would 
produce  the  same  output.  Agent-based  simulations  simply  provide  a  more  abstract  level 
of  output  that  should  help  the  researcher  observe  and  understand  complex  cause/effect 
relationships. 

D.  BAMBOO 

The  academic  and  commercial  sectors  have  developed  many  agent-based 
simulations  over  time;  SimCity  and  CACTUS  are  two  examples.  Each  of  these  allow 
runtime  interactions  where  users  can  introduce  new  agents,  modify  agents’  interaction 
rules,  adjust  behavior  parameters,  increase  or  decrease  the  numbers  of  agents,  etc.  These 
interactions,  although  occurring  at  runtime,  are  based  on  a  static  implementation  of  the 
simulation  where  all  possible  future  capabilities  were  decided  before  the  final 
compilation  of  the  executable.  This  technique  is  reasonable  if  the  simulation  is  modeling 
a  system  or  environment  whose  limits  are  well  understood  and  static.  But,  since  agent- 
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based  simulations  are  often  used  to  model  highly  complex,  unfamiliar  systems,  a  static 
implementation  can  cause  certain  limitations.  Bamboo  is  a  programming  environment 
that  allows  users  to  overcome  this  limitation  by  providing  a  means  to  dynamically  add 
functionality  to  a  simulation  at  runtime.  Users  can  create  new  functionality  and 
dynamically  link  it  to  the  current  simulation  executing  without  having  to  stop  or 
recompile  the  whole  system. 

To  illustrate  the  limitations  of  a  statically  implemented  agent-based  simulation, 
consider  the  scenario  where  a  citrus  farmer  in  southern  California  wishes  to  model  an 
orange  grove  to  help  understand  the  effects  of  weather,  farming  techniques,  and  local 
flora  and  fauna  on  future  crop  yield.  The  farmer  gathers  facts,  statistics,  characteristics, 
and  other  pertinent  information  relating  to  the  local  environment,  which,  for  his  study, 
consists  of  typical  weather  in  the  area  and  all  other  plants,  animals,  and  insects  that  might 
affect  the  orange  crop  yield.  He  must  consider  all  known  enemies  and  benefactors  in  the 
environment  of  the  particular  orange  tree  he  wishes  to  grow.  This  is  important  because, 
like  other  processes  that  occur  in  nature,  an  orange  grove  is  a  very  complex  system  and 
the  omission  of  one  small  detail  may  cause  the  simulation  to  produce  output  far  from 
reality. 

Once  the  farmer  has  collected  the  information  needed,  he  can  design  agents  for 
each  entity  needed  to  populate  the  simulation.  For  this  illustration,  assume  the  year  is 
1975,  and  although  the  Mediterranean  fruit  fly  (Medfly)  has  been  trapped  in  the  United 
States  before,  California  has  had  no  confirmed  captures  of  the  pest  [7].  Because  of  this, 
the  farmer  never  considers  the  Medfly  as  a  potential  threat  to  his  orange  grove,  and 
therefore  does  not  design  an  agent  to  represent  it  in  the  simulation.  After  spending 
months  researching  the  environment  where  he  plans  to  grow  his  oranges,  and  many  more 
months  designing  and  implementing  a  very  robust  agent-based  simulation  to  model  this 
environment,  the  farmer  begins  his  simulation. 

The  simulation  runs  for  months  and  begins  to  provide  great  insight  to  potential 
patterns  in  crop  yield  and  tree  survivability  based  on  the  interactions  of  all  agents  in  the 
simulation.  Now  the  farmer  begins  to  see  patterns  that  aid  in  planning  the  real  world 
orange  grove  that  he  may  never  have  considered  otherwise.  Assume  that  it  is  now  late 
1975  and  the  Los  Angeles  Times  announces  the  first  confirmed  capture  of  a  Medfly  in 
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the  southern  California  [6].  The  farmer  must  now  reconsider  attempting  to  grow  his 
oranges  in  this  area  because  the  Medfly  poses  a  serious  threat  and  must  be  factored  into 
his  strategy.  Because  the  simulation  was  originally  statically  implemented,  the  farmer 
must  stop  the  simulation,  design  an  agent  to  represent  the  Medfly,  recompile  the  entire 
simulation,  and  run  it  all  over  again. 

Had  the  farmer  implemented  his  simulation  using  a  dynamically  extensible 
executable  like  that  provided  by  Bamboo,  he  would  have  been  able  to  design  a  Medfly 
agent  and  load  it  into  the  simulation  while  it  was  still  running.  The  agents  in  the 
simulation  would  have  been  able  to  interact  with  new  Medfly  agent  and  vice-versa. 

These  new  interactions  would  begin  to  produce  new  behaviors  or  patterns  that  might 
assist  the  farmer  in  his  strategic  planning.  This  would  have  saved  the  farmer  a  great  deal 
of  time  and  money  and  provided  more  timely  feedback. 

Another  example  to  highlight  potential  drawbacks  of  statically  compiled  agent- 
based  simulations  that  may  be  more  pertinent  to  a  military  audience  is  a  combat 
simulation  designed  to  provide  insight  on  the  expected  success  of  various  warfare  tactics. 
Consider  a  scenario  where  forces  are  to  be  deployed  on  a  peacekeeping  operation  to  a 
war-tom  country.  Before  actually  committing  forces  in  harms  way  it  would  be  very 
productive  to  run  a  simulation  that  might  provide  some  insight  as  to  the  potential 
outcomes  of  the  operation.  This  would  provide  the  peacekeepers  with  a  platform  to  view 
potential  consequences  of  their  actions  and  allow  them  to  practice  reacting  to  various 
scenarios  that  might  arise.  This  pre-mission  training  would  hopefully  limit  the  number  of 
unexpected  events  during  the  execution  of  the  actual  mission. 

As  with  the  orange  farmer  example,  the  first  thing  the  modeler  of  the 
peacekeeping  scenario  must  do  is  gather  the  pertinent  data.  He  must  discover  all  possible 
information  about  all  forces  that  may  be  involved  in  the  operation  and  the  environments 
where  these  operations  might  take  place.  "Who  are  the  leaders?",  "What  kinds  of  tactics 
do  the  forces  employ?",  "What  is  the  composition  of  the  forces?",  "Will  they  typically 
fight  in  built-up  areas  or  open  terrain?",  "What  are  their  goals?",  "What  are  their 
constraints?"  (especially  pertinent  to  the  peacekeeping  force),  etc.,  are  all  questions  that 
need  to  be  answered  to  build  an  accurate  model. 
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Agents  are  then  developed  to  represent  entities,  aggregate  or  individual,  in  the 
simulation.  After  running  many  iterations  of  the  scenario,  the  modeler  begins  to  notice 
certain  behaviors  emerge.  He  may  begin  to  see  the  warring  parties  adapt  certain  tactics 
because  of  the  introduction  of  peacekeepers.  The  warring  parties  may  band  together 
against  the  peacekeepers,  they  may  remain  separate  but  all  act  hostile  towards  the 
peacekeepers,  some  may  disband  or  go  into  hiding  and  wait  things  out.  The  modeler  now 
begins  to  experiment  with  ways  to  counter  the  new  threats. 

For  this  example,  consider  that  the  warring  parties  have  banded  together  against 
the  peacekeepers.  The  peacekeepers  deploy  to  conduct  a  mission  that  turns  into  a  full¬ 
blown  conflict  with  the  warring  parties.  The  peacekeeping  force  commander  calls  for 
assistance  -  armored  jeeps  and  five-ton  trucks  loaded  with  soldiers  deploy  to  assist. 
(Requests  by  the  commander  to  have  tanks  and  infantry  fighting  vehicles  available  were 
denied  before  the  initial  operation  ever  began,  so  they  were  not  built  into  the  simulation.) 
The  situation  continues  to  escalate  with  the  peacekeeping  forces  being  divided  and  their 
reinforcements  being  blocked.  As  the  scenario  continues  the  peacekeepers  begin  taking 
heavy  casualties. 

The  simulation  has  shown  that  there  is  potential  for  a  violent  conflict,  something 
neither  the  commander  nor  his  superiors  anticipated.  It  has  also  shown  that  resources 
currently  available  to  the  peacekeeping  force  commander  are  potentially  not  adequate  to 
handle  extreme  situations.  The  commander  has  the  simulation  run  again,  this  time  with  a 
reaction  force  of  tanks  and  infantry  fighting  vehicles.  Since  the  simulation  was  restarted 
under  different  conditions,  a  conflict  similar  to  the  one  witnessed  in  the  previous  run  may 
or  may  not  emerge.  The  commander  does  not  know  if  this  is  simply  a  new  outcome  or 
the  result  of  the  introduction  of  new  resources.  What  he  really  needed  to  know  was  how 
the  employment  of  the  tank  and  infantry  fighting  vehicle  reaction  force  might  have 
affected  the  outcome  of  that  scenario.  He  needed  the  ability  to  introduce  them  as  he  saw 
the  situation  develop.  If  the  operation  had  been  developed  using  a  Bamboo 
implementation,  the  tanks  and  infantry  fighting  vehicles  could  have  been  introduced  "on 
the  fly",  thereby  allowing  the  commander  to  see  behavior  patterns  develop  based  on  the 
introduction  of  new  resources. 
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The  simulation  provides  the  commander  with  a  tool  to  view  situations  as  they 
arise  that  he  may  not  have  even  considered.  He  can  view  potential  outcomes,  and  with  a 
Bamboo  implementation,  see  how  weapons  not  originally  included  in  the  simulation 
might  actually  impact  the  outcome  of  the  mission.  At  that  point  he  can  either  come  up 
with  new  courses  of  action  or  go  back  to  his  superiors  and  request  additional  resources, 
because  he  has  seen  the  potential  for  the  mission  to  evolve  into  more  than  a  peacekeeping 
operation. 

The  last  two  examples  are  fictional  and  contrived,  but  hopefully  serve  to  illustrate 
that  agent-based  simulations  can  benefit  a  great  deal  from  the  dynamic  extensibility  that 
Bamboo  offers.  Bamboo  provides  the  mechanisms  where  users  or  systems  themselves 
can  modify  the  executables  on  the  fly  without  having  to  stop  the  simulation  and 
recompile.  Bamboo  was  originally  designed  to  facilitate  the  development  of  real-time, 
networked  virtual  environments,  and  one  can  immediately  see  the  potential  for 
developing  networked  agent-based  simulations  where  users  from  around  the  world  could 
design  and  introduce  their  own  agents  into  a  commonly  shared  virtual  environment 
through  the  Internet. 

E.  SUMMARY  OF  CHAPTERS 

The  remainder  of  the  thesis  is  organized  as  follows: 

•  Chapter  II:  Agent-Based  Modeling.  Discusses  a  definition  for  agent-based 
models  to  include:  the  purpose  of  agent-based  models,  what  makes  an  agent- 
based  model  different  than  other  models,  and  what  constitutes  an  agent-based 
model. 

•  Chapter  III:  Bamboo.  Discusses  the  current  implementation  of  Bamboo  and 
how  its  capabilities  are  suited  for  dynamically  extending  virtual  environments 
and  simulations. 

•  Chapter  IV:  Architecture.  Describes  the  development  of  a  basic  agent-based 
simulation  architecture,  modeling  the  predator-prey  relationship,  using  both  a 
Windows/C-H-  and  Bamboo  implementation. 


9 


•  Chapter  V:  Conclusions.  Discusses  the  limitations  discovered  during 

development  and  provides  ideas  as  to  future  work  that  might  be  completed  in 
this  area. 
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II.  AGENT-BASED  MODELING 


A.  INTRODUCTION 

Agent-based  models,  known  by  many  different  names  to  include  bottom-up 
models,  individual-base  models,  artificial  social  systems,  or  behavior-based  models,  are 
used  to  study  everything  from  the  stock  market  to  ant  colonies  to  the  human  immune 
system  [2].  Regardless  of  their  name,  their  purpose  is  to  allow  users  to  gain  an 
understanding,  through  analysis,  of  the  processes  that  appear  in  different  complex 
systems  [8]. 

At  the  core  of  agent-based  simulations  are  independent  software  agents  that 
represent  the  model  down  to  the  entity  level.  These  agents  populate  an  environment  and 
interact  with  each  other  and  the  environment.  Each  agent  has  the  ability  to  adapt  or  learn 
from  these  interactions  -  they  evolve  over  time.  While  each  agent  has  a  relatively  small 
number  of  possible  behaviors,  the  sheer  number  of  possible  interactions  and  outcomes 
greatly  increases  the  complexity  of  these  simulations.  The  complexity  is  further 
increased  by  the  inherent  non-linearity  of  those  interactions  and  typically  produces 
unpredictable  large-scale  effects.  These  large-scale  effects  are  known  as  emergent 
behaviors  [8].  Agents,  their  interactions  and  adaptability,  and  emergence  are  what 
differentiate  agent-based  simulations  from  other  types  of  simulations  that  typically 
aggregate  behaviors  instead  of  track  individuals  through  time  [9]. 

B.  AGENTS 

An  agent  is  simply  a  software  object  with  internal  states  and  a  set  of  associated 
behaviors  [10].  Examples  of  what  agents  can  represent  include  atoms,  fish, 
organizations,  people,  vehicles,  or  nations  [8],  A  state  represents  attributes  or  properties 
of  an  agent  such  as  identification  number,  sex,  age,  or  geographic  location.  Some  states, 
such  as  identification,  are  fixed  for  the  life  of  the  agent,  while  others,  such  as  energy 
level,  may  change  over  time  as  the  agent  interacts  with  its  environment  [10].  An  agent's 
behaviors  provide  a  set  of  rules  that  describe  how  it  should  interact  with  its  environment. 
These  rules  are  often  represented  as  a  set  of  stimulus-response  combinations,  and  are 
usually  coded  as  IF-THEN  statements  [2],  An  agent  typically  has  an  underlying  goal 
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such  as  food,  survival,  or  wealth,  and  must  navigate  through  the  environment,  modifying 
its  behaviors  based  on  interactions,  in  an  attempt  to  attain  that  goal.  The  two  major 
characteristics  of  agents  found  in  agent-based  simulations  are  their  ability  to  interact  with 
their  environment,  and  through  learning,  their  ability  to  adapt  future  behavior  based  on 
these  interactions. 

1.  Interaction 

An  agent  interacts  with  its  environment  and  coordinates  with  other  agents  in  an 
attempt  to  attain  its  underlying  goal(s)  and  achieve  a  progressively  better  fit  to  the 
requirements  of  the  environment.  Their  interactions  may  consist  of  many  things  to 
include  mating,  communication,  combat  or  partnership  [8]. 

Many  steps  must  occur  for  a  single  interaction  to  take  place.  First,  an  agent  must 
sense  its  surroundings,  or  environment,  in  order  to  determine  whether  or  not  there  are  any 
other  agents  with  which  to  interact.  Sensing  is  limited  to  a  set  range  based  on  the 
expected  real-world  sensing  limitations  of  the  agent.  An  agent’s  sensors  may  be 
programmed  explicitly  so  that  each  sensor  has  its  own  functionality.  Another  approach  is 
to  implement  sensing  in  an  abstract  manner  where  the  agent  simply  knows,  or  can  access 
information  about  everything  within  its  sensing  range,  but  has  no  physical  sensors  to  do 
so.  This  abstraction  is  useful  when  “how  an  agent  senses”  is  not  important  compared  to 
simple  fact  that  it  does  sense  because  it  allows  developers  to  aggregate  many  sensors  that 
an  agent  might  actually  use  in  the  real  world  into  one  sensing  capability.  For  example, 
humans  use  the  five  basic  senses  of  touch,  smell,  sight,  hearing,  and  taste  to  sense  their 
environment  and  decide  what  action  to  take  next.  Rather  than  implement  all  five  senses 
separately,  it  is  often  easier  to  provide  a  human  agent  with  the  ability  to  simply  sense,  and 
therefore  know,  everything  about  all  other  agents  within  its  sensing  range. 

Once  an  agent  has  sensed  its  environment,  it  must  gather  information  about  each 
agent  within  its  range  to  determine  what  course  of  action  is  required  next.  Gathering  the 
information  is  usually  accomplished  through  one  of  two  ways;  broadcast  reception  and 
direct  interrogation.  In  the  first  method,  an  agent  broadcasts  its  own  state  information  to 
all  other  agents  within  range.  This  means  that  an  agent  within  sensing  range  of  the 
broadcasting  agent  will  receive  that  information  whether  it  needs  it  or  not.  For  example, 
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if  two  humans  are  within  sensing  range  of  one  another.  If  one  agent  speaks,  its  “voice”  is 
broadcast  to  any  agent  within  “hearing”  range.  The  second  agent  will  hear  that 
information  whether  it  needs  it  or  not.  In  the  second  method,  an  agent  is  allowed  to 
interrogate  another  agent  for  specific  information.  Normally,  the  level  of  information 
available  through  direct  interrogation  is  limited  by  the  designer  to  match  the  level  of 
available  information  that  would  be  expected  in  the  real  world.  For  example,  in  the  real 
world,  when  a  herd  of  antelope  are  in  mating  season,  a  male  antelope  can  sense  whether  a 
female  antelope  has  already  been  impregnated.  It  makes  sense  then,  that  a  male  antelope 
agent  in  a  simulation  should  be  able  to  interrogate  a  female  agent  for  pregnancy 
information  and  expect  a  valid  reply.  It  is  possible  to  combine  both  broadcast  and 
interrogation  techniques  in  an  agent-based  simulation  since  information  is  normally 
passed  both  ways  in  the  real  world. 

Once  an  agent  has  gathered  all  the  needed  information  about  other  agents  within 
its  vicinity,  it  must  then  determine  what,  if  any,  interactions  it  should  attempt. 

Interactions  may  include  attempts  to  mate,  flee,  or  form  alliances.  An  interaction 
normally  affects  two  or  more  agents,  therefore  the  outcome  of  that  interaction  must  be 
determined  fairly  and  equitably  for  all  those  involved.  While  the  outcomes  of  some 
interactions  are  straightforward  and  easily  determined,  others,  such  as  combat,  can  result 
in  a  large  number  of  potential  outcomes.  To  simplify  the  process,  the  outcome  of  a  single 
interaction  is  usually  determined  by  a  referee  in  the  simulation.  A  referee  has  access  to 
all  pertinent  information  needed  to  decide  how  an  interaction  should  affect  each  agent 
involved.  Once  an  interaction  has  occurred  and  the  referee  has  decided  the  outcome,  the 
agents  involved  must  update  their  states  and  possibly  revise  their  behavior  rules. 

Referring  to  the  mating  example  above,  once  two  agents  have  successfully  mated,  the 
female’s  state  value  for  pregnant  would  become  true,  and  her  behavior  might  be 
modified.  She  may  become  territorial  and  avoid  other  agents  instead  of  moving  towards 
them  or  she  may  require  more  food  and  therefore  feed  more.  The  level  to  which  behavior 
is  modified  after  an  interaction  again  depends  on  the  designer  of  the  simulation. 
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2.  Adaptability 


The  ability  to  adapt,  or  adjust,  to  their  environment  is  one  of  the  essential 
components  of  agents  that  distinguishes  agent-based  simulations  from  other  traditional 
simulation  techniques.  Agents  adapt  by  modifying  their  rules  of  behavior  and  strategies 
based  on  what  they  have  learned  from  previous  interactions.  This  adaptability  greatly 
increases  the  level  of  complexity  that  can  be  modeled.  Most  agents  modeled  in  a 
simulation  will  use  two  forms  of  adaptability,  short-term  and  long-term,  in  order  to  attain 
their  desired  goals. 

Short-term  adaptability  allows  an  agent  to  adjust  its  behaviors  to  satisfy  some 
immediate  requirement  in  the  environment.  It  normally  requires  the  temporary 
integration  or  switching  between  specific  behaviors  [11].  A  simple  example  of  this  might 
be  an  autonomous  robot  agent  that  encounters  a  physical  object  in  its  path  while 
attempting  to  relocate  to  a  new  location.  If  the  robot  has  no  prior  knowledge  of  the 
object,  and  no  generic  avoidance  behavior,  it  may  collide  with  the  obstacle.  Once  the 
collision  has  occurred,  the  robot  will  adjust  its  behavior  by  changing  direction  as  needed 
to  get  around  the  object.  The  robot  may  alternate  its  behaviors  between  move  forward 
and  move  sideways  until  it  has  cleared  the  object  at  which  time  it  can  resume  its  original 
goal  of  relocating.  Switching  between  these  two  specific  behaviors  during  the  sequence 
of  interactions  is  what  makes  this  a  short-term  adaptation. 

Long-term  adaptation  represents  a  higher  level  of  learning  and  normally  takes 
place  over  the  life  of  the  agent  [11].  From  the  example  above,  the  robot  has  learned  that 
the  object  with  which  it  collided  is  something  it  should  avoid  in  the  future.  It  can  also 
remember  basic  information  about  the  object,  such  as  size  and  the  most  efficient  way  to 
avoid  the  object  in  the  future.  This  means  the  next  time  the  robot  encounters  the  object 
while  relocating,  it  will  be  able  to  avoid  the  object  while  minimizing  the  delay  from  its 
original  goal  of  relocating.  Over  time,  the  robot  will  develop  a  new  behavior  called 
obstacle  avoidance  that  represents  a  higher  level  of  motion  control  compared  to  simply 
moving  forward  or  sideways. 

Agents  that  do  not  adapt  will  not  be  able  to  find  their  niche  in  the  environment  or 
achieve  their  goal(s).  They  are  the  ones  that  will  perish,  whether  they  are  stock  market 
agents  trying  to  buy  stock  at  a  certain  break  point,  military  tactics  agents  trying  to  detect 
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a  vulnerability  in  an  enemy’s  defense,  or  agents  representing  animals  in  the  wild  just 
trying  to  survive.  As  individual  agents  interact  and  adapt,  group  behaviors  begin  to 
emerge.  These  emergent  behaviors  are  what  provide  the  modeler  with  a  platform  to  carry 
out  the  what-if  scenarios  and  observe  various  outcomes. 

C.  EMERGENT  BEHAVIORS 

Entity  level  agents  that  leam  from,  and  adapt  to  their  environment  by  interacting 
with  each  other,  provide  researchers  with  realistic  and  useful  views  of  behavior  patterns 
that  might  emerge  in  real-world  systems.  These  patterns,  typically  referred  to  as 
emergent  behaviors,  result  from  the  aggregate  interactions  among,  and  adaptive  nature  of, 
individual  agents  [12].  They "...  are  often  surprising  because  it  can  be  hard  to  anticipate 
the  full  consequences  of  even  simple  forms  of  interaction"  [8]. 

A  good  example  of  emergent  behaviors  is  an  ant  colony  as  described  by  D.  R. 
Hofstadter  [2, 13]. 

Individual  ants  are  remarkably  automatic  (reflex  driven).  Most  of 
their  behavior  can  be  described  in  terms  of  the  invocation  of  one  or  more 
of  about  a  dozen  rules  of  the  form  "grasp  object  with  mandibles, " "  follow 
a  pheromone  trail  (scents  that  encode  'this  way  to  food,'  'this  way  to 
combat,'  and  so  on)  in  the  direction  of  an  increasing  (decreasing  gradient," 

"test  any  moving  object  for  'colony  member'  scent,"  and  so  on.  (To 
actually  perform  computer  simulation  of  an  ant  following  these  rules,  the 
description  of  the  rules  would  have  to  be  somewhat  more  detailed,  but 
these  phrases  give  the  gist.)  This  repertoire,  though  small,  is  continually 
invoked  as  the  ant  moves  through  its  changing  environment.  The 
individual  ant  is  at  high  risk  whenever  it  encounters  situations  not  covered 
by  the  rules.  Most  ants,  worker  ants  in  particular,  survive  at  most  a  few 
weeks  before  succumbing  to  some  situation  not  covered  by  the  rules. 

The  activity  of  an  ant  colony  is  totally  defined  by  the  activities  and 
interactions  of  its  constituent  ants.  Yet  the  colony  exhibits  a  flexibility 
that  goes  far  beyond  the  capabilities  of  its  individual  constituents.  It  is 
aware  of  and  reacts  to  food,  enemies,  floods,  and  many  other  phenomena, 
over  a  large  area;  it  reaches  out  over  long  distances  to  modify  it 
surroundings  in  ways  that  benefit  the  colony;  and  it  has  a  life-span  orders 
of  magnitude  longer  than  that  of  its  constituents  (though  for  some  species 
the  life-span  of  the  queen  may  approximate  the  life-span  of  the  colony). 

To  understand  the  ant,  we  must  understand  how  this  persistent,  adaptive 
organization  emerges  from  the  interactions  of  its  numerous  constituents. 
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While  an  individual  ant’s  behavior  rules  are  fairly  small  and  simplistic,  a  complex 
colony  emerges  from  the  large  number  of  ants  and  their  interactions  with  the 
environment.  The  colony  is  much  more  than  just  the  sum  of  the  individual  ants.  The 
emergent  behaviors  displayed  by  the  ant  colony  are  the  types  of  behaviors  that  modelers 
are  looking  for  when  they  build  agent-based  simulations.  They  can  model  the  individual 
entities  with  very  basic  states  and  behavior  rules  and  from  that  alone,  observe  many 
complex  patterns  as  they  emerge. 

D.  SUMMARY 

Agent-based  models  are  very  useful  for  simulating  many  types  of  systems.  They 
are  particularly  appropriate  for  modeling  realistic  environments  that  consist  of  many 
agents  interacting  in  a  non-linear  fashion.  In  an  attempt  to  achieve  a  better  fit  with  the 
environment,  agents  adapt  future  behaviors  based  on  these  interactions,  resulting  in 
complexity  that  is  typically  difficult  to  model  using  stochastic  or  deterministic  processes. 
It  is  often  more  realistic  and  useful  to  provide  agents  with  initial  behaviors,  let  them 
interact,  and  then  observe  the  behaviors  that  emerge.  Agent-based  modeling  provides  a 
platform  where  those  unexpected  behaviors  can  emerge  and  provide  analysts  with  greater 
insight  into  the  complexity  of  their  models. 
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III.  BAMBOO 


A.  INTRODUCTION 

Bamboo  is  a  toolkit  that  provides  an  application  programmer’s  interface  (API)  for 
the  development  of  real-time,  networked,  virtual  environments  (VE).  Its  primary  focus 
is  to  provide  a  means  for  users  to  create  dynamically  extensible  code.  This  means  that 
applications  programmed  in  Bamboo  have  the  ability  to  dynamically  reconfigure 
themselves  by  adding  to  or  altering  their  functionality  during  runtime.  It  contains  a  series 
of  functional  modules  that  extend  its  basic  execution  core.  Users  can  further  extend  the 
execution  core  by  adding  application  specific  modules  that  provide  the  VE  with  the 
desired  capabilities.  Although  Bamboo  was  designed  to  facilitate  the  development  of 
networked  VEs,  its  unique  features  can  greatly  enhance  traditional  agent-based 
simulations  as  well.  Dynamic  extensibility  is  the  most  significant  feature  of  Bamboo  that 
will  provide  the  greatest  benefit  to  agent-based  simulations. 

B.  DYNAMIC  EXTENSIBILITY 

Dynamic  extensibility  was  the  single  most  influential  design  issue  for  the  creator 
of  Bamboo  [14].  Bamboo  accomplishes  this  by  implementing  a  plug-in  metaphor  much 
like  that  popularized  by  commercial  software  companies  such  as  Netscape  Navigator 
[15].  The  biggest  difference  between  Bamboo  and  traditional  plug-ins  is  the  fact  that 
Bamboo  does  not  require  an  application  or  system  re-start  in  order  to  function.  Each 
Bamboo  module  represents  a  plug-in  that  can  extend  the  existing  execution  core.  It 
further  extends  the  plug-in  metaphor  by  adding  inter-module  dependencies.  Bamboo 
uses  the  plug-in  concept  along  with  the  simple  but  robust  mechanisms  of  callbacks  and 
event  handling  to  provide  dynamic  extensibility. 

1.  Dependency 

Not  only  does  Bamboo  support  the  plug-in  metaphor  by  allowing  additional 
functionality  be  added  to  the  executable  through  external  modules,  it  utilizes  modules 
itself  to  create  the  Bamboo  runtime  environment.  The  core  executable,  or  “main” 
routine,  contains  only  enough  logic  to  page  modules  and  provide  the  framework  into 
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which  plug-ins  may  hook.  The  remainder  of  the  functionality  in  the  Bamboo  runtime 
environment  is  provided  through  additional  separate  modules. 

Developers  who  wish  to  use  Bamboo  to  create  a  simulation  simply  need  to  create 
modules  that  further  extend  the  capabilities  of  the  existing  Bamboo  runtime  environment. 
User  application  modules  are  paged  into  memory  and  become  part  of  the  current 
executable.  Figure  3.1  provides  an  abstract  view  of  the  Bamboo  core  with  external 
modules  attached  to  it.  This  approach  ensures  that  the  programmer  makes  all  decisions 
regarding  an  application’s  capabilities  and  that  no  decisions  are  forced  by  restrictions  in 
Bamboo  itself.  All  capabilities  of  an  application  are  defined  at  runtime  when  the 
application  is  loaded  into  Bamboo. 


One  of  the  main  benefits  of  using  a  plug-in  concept,  is  that  it  allows  applications 
that  need  certain  functionality  not  already  in  memory  to  load  the  needed  modules.  This  is 
done  through  a  dependency  list  where  a  module  specifies  all  other  modules  on  which  it 
depends.  Modules  in  the  dependency  list  that  are  not  active  in  memory  are  simply  loaded 
before  the  application  without  any  user  interaction.  A  great  advantage  to  this  approach  is 
that  functionality  that  is  not  needed  to  run  the  current  application,  is  not  loaded  into 
memory  thereby  saving  valuable  resources  and  enhancing  system  performance. 

Specifying  every  possible  module  on  which  an  application  depends  would  be 
complex  and  difficult,  so  Bamboo  simplifies  the  process  by  requiring  an  application  to 
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list  only  the  immediate  modules  that  it  needs  in  memory.  Bamboo  then  manages  the 
system  of  dependencies  to  ensure  that  all  required  modules  are  loaded  into  memory  in  the 
correct  order.  Figure  3.2  depicts  an  example  where  module  four  (M4)  is  being  loaded 
into  memory.  For  the  example,  assume  that  the  numbered  modules  are  the  application 
specific  modules  and  that  M3  has  already  been  loaded  into  memory.  As  the  system  tries 
to  load  M4,  it  must  first  verify  that  M2  is  in  memory.  Since  M2  is  not  already  in 
memory,  the  system  must  load  M2.  In  the  process  of  loading  M2,  the  system  must  verify 
that  Ml  is  already  in  memory,  which  it  is  because  it  was  loaded  when  M3  was  loaded. 
Having  verified  the  required  modules  for  M2,  the  system  then  loads  M2,  after  which  it 
can  finish  loading  M4  [14]. 


2.  Callbacks 

The  plug-in  concept  of  Bamboo  does  help  facilitate  dynamic  extensibility  of  a 
simulation,  but  the  ability  to  extend  the  executable  actually  comes  from  the  callback  and 
callback  handler.  The  callback  is  a  very  simple  yet  powerful  component  of  Bamboo.  It 
provides  the  framework  to  which  new  code  can  attach  itself  and  be  brought  into  the  same 
address  space  as  the  executable.  A  callback  enters  the  execution  loop  by  attaching  itself 
to  a  callback  handler.  A  callback  handler  is  a  thread  in  the  Bamboo  runtime  environment 
which  shares  execution  time  with  the  “main”  routine  and  other  callback  handlers.  A 
callback  handler  is  responsible  for  sequentially  executing  each  of  its  attached  callbacks 


19 


every  time  it  itself  is  executed.  Figure  3.3  illustrates  how  individual  callbacks  attach 
themselves  to  a  callback  handler. 


Figure  3.3:  The  Callback  Handler 


3.  Event  Handling 

The  event  handler  provides  a  useful  abstraction  for  handling  system  and  user 
generated  events.  It  does  so  by  using  the  callback  handler  to  notify  registered  parties  of 
an  event  via  callbacks.  Since  Bamboo  uses  a  callback  handler  for  notification  delivery, 
multiple  callbacks  may  be  executed  in  response  to  a  single  event. 

C.  SUMMARY 

Bamboo  breaks  the  paradigm  of  statically  defined  virtual  environments  and 
simulations  by  providing  simple  mechanisms  to  dynamically  extend  an  executable.  It 
accomplishes  this  by  specifying  a  convention  for  defining  new  program  modules, 
allowing  those  new  modules  to  link  into  the  executable  through  the  use  of  callbacks  and 
callback  handlers,  and  by  loading  required  modules  for  any  new  application  without  user 
interaction.  As  mentioned  earlier,  the  ability  to  dynamically  extend  a  simulation  during 
runtime  could  greatly  increase  the  utility  of  traditional  statically  defined  agent-based 
simulations. 
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IV.  ARCHITECTURE 


A.  INTRODUCTION 

It  is  very  challenging  to  describe  the  interactions  among  agents,  especially  when 
the  agents  can  modify  their  behaviors  thereby  changing  their  rules  of  interaction  with 
other  agents.  Developing  an  architecture  that  supports  this  methodology  is  also  a 
daunting  task.  Object-oriented  programming  (OOP)  languages,  such  as  C++,  seem  to 
provide  the  best  environment  to  program  agent-based  simulations.  OOP  provides  many 
mechanisms  that  greatly  facilitate  the  construction  of  agent-based  models;  the  most 
significant  of  these  include  encapsulation,  inheritance,  and  polymorphism.  Agents  and 
the  environment  in  which  they  exist  can  all  be  implemented  as  objects;  structures  that 
hold  data  and  procedures.[10]  An  agent’s  state  is  comprised  of  instance  variables,  while 
its  behaviors  are  defined  through  methods.  Inheritance  provides  a  mechanism  for 
defining  a  base  class  and  letting  modelers  define  agent  specific  routines,  whereas 
polymorphism  allows  the  modeler  to  redefine  or  extend  the  functionality  of  the  base  class 
if  needed. 

One  of  the  drawbacks  to  this  type  of  implementation  is  the  requirement  to  have 
everything  set  before  run  time.  If  a  modeler  wishes  to  add  a  new  type  of  agent  -  one  not 
defined  at  run  time  -  they  must  stop  the  simulation,  update  the  code  where  appropriate, 
and  then  recompile.  Bamboo  appears  to  offer  an  attractive  alternative  to  this  because  it 
affords  the  modeler  the  opportunity  to  define  and  add  new  agents  "on  the  fly". 

The  goal  of  this  thesis  was  to  look  at  the  issues  associated  with  building 
architectures  for  agent-based  adaptive  simulations.  We  first  designed  the  architecture 
using  the  Windows/C++  programming  environment  because  of  our  familiarity  with  this 
programmer  interface.  As  we  conducted  research  and  the  architecture  began  to  develop, 
we  realized  that  the  ability  to  add  agents  during  a  run  could  be  very  beneficial  to  the 
modeler.  Discussions  with  Mike  Zyda  [16],  Rudy  Darken  [17],  and  Kent  Watsen  [18], 
encouraged  us  to  build  an  architecture  using  Bamboo,  which  provides  the  ability  to 
implement  this  new  paradigm. 

With  this  in  mind,  we  decided  to  model  a  simple  predator-prey  relationship  to  see 
how  speed  affects  their  interactions  and  the  survivability  of  each  species.  This  scenario 
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afforded  us  the  opportunity  to  fully  exercise  and  view  the  core  fundamentals  of  agent- 
based  modeling,  namely  -  agents,  interactions,  adaptability,  and  emergent  behaviors.  The 
agents  are  Cheetah,  Antelope,  and  grassy  feeding  areas.  Interactions  between  agents 
included:  mating,  killing,  avoiding,  herding,  fleeing,  chasing,  and  feeding.  Through  these 
interactions,  we  were  able  to  observe  how  both  the  Cheetah  and  the  Antelope  adapt  their 
behaviors  to  achieve  their  overall  goal;  which  in  this  simulation  was  simply  survival  of 
the  species.  These  interactions  also  lead  to  some  emergent  behaviors  that  we  will  discuss 
later. 

The  predator-prey  model  is  called  Savannah  after  the  African  Savannah  where 
these  real-world  interactions  take  place  each  day.  Much  like  the  real  Savannah,  the 
simulated  Antelope  roam  an  open  range  in  herds  looking  for  food  and  potential  mates, 
while  trying  not  to  fall  prey  to  any  predators.  They  may  also  die  from  infant  mortality  or 
age.  The  Cheetah,  being  solitary  animals,  typically  avoid  each  other  while  hunting  for 
prey  in  their  own  territory.  The  only  time  Cheetah  come  together  is  during  mating 
season,  when  they  will  seek  a  mate  and  then  return  to  their  independent  lifestyle.  Like 
the  Antelope,  they  can  die  from  age  or  infant  mortality  and  also  starvation.  Both  Cheetah 
and  Antelope  have  simple  sets  of  rules  to  govern  their  behavior. 

As  is  common  with  many  other  models,  this  simulation  does  not  attempt  to 
intricately  model  every  detail.  To  attempt  to  model  the  predator-prey  relationship  exactly 
as  it  occurs  in  nature  is  unrealistic  and  is  not  the  focus  of  this  thesis.  The  normal  practice, 
when  deciding  how  much  detail  to  include  in  the  model,  is  to  determine  what  is  needed  in 
the  model  and  implement  that  to  a  sufficient  level  of  detail.  Since  we  were  mainly 
interested  in  looking  at  architectural  issues  of  agent-based  modeling,  only  a  few  aspects 
of  this  relationship  along  with  a  few  major  components  of  each  animal  were  modeled. 

For  instance,  the  interactions  between  the  Cheetah  and  Antelope  were  modeled  in  terms 
of  the  hunt-chase-kill  cycle  that  exists  for  the  Cheetah  or  the  watch-flee-escape  cycle  that 
exists  for  the  Antelope.  As  far  as  modeling  the  survivability  of  each  species,  other 
relationships  were  modeled  such  as  mating,  infant  mortality,  and  aging.  To  further 
simplify  the  model,  some  capabilities  or  conditions  were  aggregated  such  as  sensing 
ability  and  infant  mortality. 
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It  is  also  important  to  note  that  other  species,  which  could  affect  the  output  a  great 
deal,  were  not  modeled  in  the  main  simulation.  Again,  this  is  because  the  main  purpose 
of  this  thesis  was  not  to  model  a  Cheetah-Antelope  relationship  in  the  wild,  but  to 
discover  architectural  development  issues  of  agent-based  modeling. 

B.  WINDOWS/C++  IMPLEMENTATION 

1.  Introduction 

The  windows  version  of  Savannah  was  developed  on  an  Intergraph  TDZ  2000, 

400  MHz  personal  computer  (PC)  running  the  Microsoft  Windows  NT  4.0  Operating 
System  (OS)  using  Microsoft  Visual  C++  5.0.  Visual  C++  and  Microsoft  Foundation 
Class  (MFC)  libraries  provided  a  straightforward  programming  environment  to  produce  a 
two-dimensional  640  x  480-dpi  display  of  Savannah.  Although  the  simulation  was 
developed  on  Windows  NT,  the  precompiled  version  may  be  run  on  any  Windows  PC. 

2.  Interface 

The  user  interface  for  Savannah  was  developed  using  Microsoft  Developer  Studio 
97.  The  display  provides  the  user  with  a  simple,  single-document  window  from  which  to 
view  simulation  runs.  Making  changes  to  the  simulation  requires  Visual  C++  and  the 
MFC  libraries.  Figure  4.1  shows  a  typical  screen  shot  of  the  interface  during  a  simulation 
run. 
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Figure  4.1:  Savannah  Windows/C-H-  Interface 


The  environment  is  initially  populated  with  100  randomly  located  Antelope  and  5 
randomly  located  Cheetah.  The  Antelope  are  color-coded  in  five  increments,  based  on 
speed,  using  the  Red-Green-Blue  (RGB)  spectrum.  Red  are  the  slowest  Antelope,  and 
blue  are  the  fastest.  The  Cheetah  are  colored  according  to  gender;  male  being  black,  and 
female  being  gray.  For  ease  of  identification,  Figure  4.1  also  identifies  Cheetah  with  a 
“C”. 

The  simulation  can  be  started  by  either  using  the  simulation  pull-down  menu  or 
clicking  on  the  “T”  toggle  button.  The  toggle  button  allows  the  user  to  start  and  stop  the 
simulation.  The  simulation  pull-down  menu  not  only  provides  start  and  stop  options,  but 
also  allows  the  manipulation  of  the  simulation  speed  from  slow  to  medium  to  fast,  and 
the  ability  to  step  through  the  simulation  run.  The  “S”  step  button,  on  the  toolbar,  also 
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provides  this  step-through  capability.  Once  the  simulation  has  been  started,  the  agents 
interact  according  to  the  architecture  that  is  described  in  the  following  sections. 

3.  Architecture 

a .  Overall  Design 

When  designing  any  model,  the  first  thing  to  accomplish  is  to  decide  what 
is  to  be  studied  and  to  what  detail.  Answering  questions  such  as  “What  will  the 
simulation  be  used  for?”,  “How  much  detail  is  needed?”,  “What  issues  may  need  to  be 
studied  in  the  future?”,  and  “Who  will  use  this  simulation?”  are  often  very  helpful  in 
determining  an  implementation  structure. 

In  the  case  of  Savannah,  we  wanted  to  see  how  speed  affects  the  Antelope- 
Cheetah  relationship  and  overall  survivability  of  each  species.  To  develop  the 
architecture  to  support  this,  we  initially  designed  the  simulation  using  four  linked  lists; 
one  list  each  for  the  male  and  female  Antelope  and  Cheetah.  Because  most  of  the 
interactions  in  the  simulation  are  based  on  location  and  distance  between  agents,  we 
quickly  found  the  linked-list  implementation  to  be  computationally  prohibitive.  After 
some  experimentation,  we  settled  on  a  hash  table  implementation  using  the  Map  class 
from  the  Standard  Template  Library  (STL).  The  Map  class  is  one  of  the  collection 
classes  from  the  STL  and  provides  a  one-to-one  mapping  of  a  unique  key  value  and  some 
associated  data.  The  key  can  be  of  any  valid  type  and  the  data  can  be  a  simple  element  or 
a  complex  data  structure.  For  this  simulation,  the  agents  were  placed  into  the  Map  based 
on  their  unique  xy  location  in  the  virtual  world.  This  allowed  us  to  easily  pare  the  agents 
that  were  not  within  sensing  range  when  animals  executed  their  sensing  loop. 

With  the  linked  list  implementation,  the  sensing  loop  required  0(n  ) 
computations  because  each  agent  had  to  traverse  the  entire  list  to  sense  those  other  agents 
within  range.  The  Map  implementation  required  1/x  0(n2)  where  the  scalar  1/x  was 
inversely  proportional  to  the  number  of  local  groups  in  the  simulation.  Since  the  agents 
were  able  to  calculate  the  xy  boundaries  of  their  sensing  range,  they  could  then  hash  into 
the  Map  and  only  view  those  records  of  agents  within  range.  As  an  example,  if  the 
simulation  had  300  agents  active,  the  linked  list  implementation  required  each  agent  to 
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loop  through  all  300  records  in  the  list  so  the  sensing  loop  required  300  x  300,  or  90000 
steps.  In  the  map  implementation,  each  agent  only  looped  through  the  agents  within  its 
sensing  range  so  if  the  300  agents  were  divided  into  10  Antelope  herds  and  10  Cheetah, 
then  each  agent  would  loop  through  an  average  of  30-40  agents.  This  would  require  only 
300  x  40,  or  12000  steps  to  complete  the  sensing  loop.  So  even  though  the  final  cost  may 
appear  to  be  0(n  ),  the  hash  table  implementation  did  drastically  reduce  computational 
costs. 

The  next  thing  we  considered  was  how  to  sequence  the  agent  behaviors 
and  interactions.  In  initial  versions  of  the  simulation  the  Antelope  would  sense  their 
environment  in  a  sensing  loop  and  decide  on  what  action  to  take.  They  would  then  take 
this  action  in  a  move  loop.  After  the  Antelope  finished  both  loops,  the  Cheetah  would 
then  sense  and  take  actions  in  the  same  manner.  This  gave  the  Antelope  a  one-step 
advantage,  which  would  have  been  unrealistic  and  produced  improper  results.  Therefore, 
in  later  versions  we  implemented  concurrent  sensing  and  action  loops  for  each  species. 
This  meant  that  all  Cheetah  and  Antelope  would  sense  their  environment  and  decide  on 
their  next  action  before  any  agent  was  allowed  to  move.  This  resulted  in  interactions  that 
were  more  realistic  and  better  matched  what  we  would  expect  to  occur  in  the  real  world. 

b.  Agents 

When  developing  the  architecture  for  an  agent-based  simulation,  it  is 
important  to  keep  it  as  simple  and  generic  as  possible.  It  must  be  simple  so  that  people 
can  understand  the  underlying  structure.  If  they  do  not  understand  this,  then  it  will  be 
very  difficult  to  explain  or  make  believable  the  complex  emergent  behaviors  that  result 
from  the  simulation.  Making  the  architecture  generic  leads  to  reusability  and  aids 
extensibility.  A  generic  architecture  allows  modelers  to  easily  develop  other  agents  for 
smooth  integration  into  the  simulation.  Once  the  basic  architecture  is  understood,  adding 
a  new  agent  only  requires  the  need  to  know  what  basic  functionality  must  be  included  in 
an  agent.  Also,  implementing  a  different  scenario  would  only  require  subtle  changes  to 
or  extensions  of  existing  code.  The  easiest  way  to  implement  generic  reusability  appears 
to  be  through  OOP  techniques.  Figure  4.2  shows  the  basic  class  structure  that  was  used 
in  Savannah  and  will  be  discussed  in  detail  in  the  following  section. 
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Figure  4.2:  Savannah  Class  Structure 


c.  Base  Class 

The  agents  in  Savannah  are  designed  using  an  abstract  base  class  with 
subclasses  for  each  agent  type.  The  use  of  a  base  class  allows  the  identification  of 
common  characteristics  and  methods  for  all  agents.  We  identified  appropriate  common 
attributes  for  animals  and  put  them  into  the  Animal  base  class.  The  Animal  class  state 
variables  include:  speed,  age,  generation,  pregnancy  state  information,  a  mating  season 
flag,  location,  a  death  indicator,  and  energy  level.  The  Animal  class  includes  methods 
that  allow  agents  to  move  around  their  environment,  avoid  collisions  with  other  agents, 
and  virtual  functions  for  mating  and  killing.  The  use  of  virtual  functions  ensures  that 
modelers  extending  the  base  class  include  these  functions  in  their  specific  subclass. 

Speed  is  a  statically  implemented  integer.  Initially,  each  animal  is 
assigned  a  random  speed  based  on  the  minimum  and  maximum  speed  variables 
determined  by  the  modeler.  Cheetah  are  assigned  an  additional  speed  advantage  to 
account  for  their  sprinting  ability  when  hunting.  When  a  new  animal  agent  is  bom,  it  is 
assigned  the  speed  of  either  the  mother  or  the  father  based  on  a  random  distribution. 
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The  age  and  generation  integer  variables  are  used  to  track  how  old  an 
animal  is,  and  what  generation  it  belongs  to.  Age  is  used  to  determine  that  an  animal  is 
old  enough  to  mate,  and  at  some  point  can  cause  it  to  die  of  old  age.  Initially,  each 
animal  is  assigned  a  random  age  between  a  minimum  and  maximum  age  variable  set  by 
the  modeler.  When  a  new  animal  agent  is  bom,  it  is  assigned  an  age  of  zero.  An 
animal’s  age  increases  by  one  unit  during  each  simulation  time  step.  The  generation 
variable  is  simply  a  counter  used  to  show  how  successful  each  species  has  been  at 
reproduction.  When  an  animal  agent  is  bom,  it  receives  the  generation  value  of  its 
mother  plus  one. 

The  pregnancy  state  structure,  pregPtr,  which  is  included  with  every 
female  agent,  is  used  as  a  way  to  carry  genetic  information  about  the  father.  When  a  new 
animal  is  bom,  there  is  the  ability  to  numerically  identify  both  parents,  assign  it  the  speed 
of  either  parent,  tag  a  generation  identifier  to  it,  and  assign  it  a  sequential  species 
identification  number. 

The  mating  season  flag,  inSeason,  simply  notifies  other  agents  that  the 
agent  is  mate  eligible.  The  modeler  can  control  when  a  species  is  in  mating  season  by 
setting  the  appropriate  integer  ranges  before  run  time.  The  flag  allows  agents  to 
determine  if  they  should  attempt  to  mate  with  other  agents  sensed  during  their  sensing 
loop.  The  ability  to  manipulate  the  length  of  the  mating  season  allows  the  modeler  to  see 
how  shorter  or  longer  seasons  might  affect  the  population  sustainability  of  each  species. 

Location  is  an  integer  number  that  represents  the  current  location  of  an 
agent  in  the  environment.  The  use  of  a  single  integer  number  resulted  in  quicker  position 
conflict  detection  and  resolution  than  using  an  xy  array.  The  number  either  conflicts  or  it 
does  not,  while  in  an  array  the  agent  would  have  to  look  at  both  elements  of  an  array  for 
all  agents  within  its  sensing  range  to  determine  if  there  is  a  location  conflict.  While 
location  is  a  single  integer,  it  does  represent  an  x  and  y  coordinate  location.  These 
coordinates  can  be  returned  through  the  getX  and  getY  functions. 

Figure  4.3  shows  how  a  two  dimensional  xy  location  is  converted  and 
displayed  as  a  single  integer.  The  x  position  is  the  product  of  the  maximum  x  value 
multiplied  by  the  y  offset  plus  the  x  offset  for  that  row  as  annotated  by  the  equation: 
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max(x)*offset(y)+offset(x).  In  this  example  max  x  =  640,  offset(y)  =  206,  and  offset(x)  = 
255.  This  results  in  an  xy  integer  value  of  16895. 


Figure  4.3:  Computation  of  Integer  xy  Position 


The  death  indicator  value  is  a  way  to  update  an  animals  state  indicating 
how  it  died.  There  are  five  legal  entries  to  the  deathlndicator  field:  age,  mortality, 
starvation,  predator,  and  the  default  value  of  not-dead.  When  an  agent  dies  its  death 
indicator  is  set  to  the  appropriate  and  the  agent  remains  in  the  simulation  for  two  time 
steps  so  other  agents  can  sense  it  to  determine  how  it  died.  When  an  agent  reaches  the 
maximum  age  it  sets  its  death  indicator  to  age.  Every  agent  created  has  the  probability  of 
dying  from  infant  mortality.  When  this  occurs,  that  agent’s  death  indicator  is  set  to 
mortality.  When  an  agent  starves  to  death  it  sets  its  death  indicator  to  starvation  and 
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when  it  is  killed  by  a  predator,  the  predator  sets  the  agent’s  death  indicator  to  predator. 
After  two  simulation  time  steps  the  agent  is  removed  from  the  simulation  with  the 
destructor  method. 

The  energy  level  provides  a  way  to  put  boundaries  on  agents  actions.  It 
can  be  used  to  trigger  short-term  goals  in  an  agent,  thereby  dictating  a  sequence  of 
possible  actions.  If  the  energy  level  is  high  enough,  then  the  agent  may  not  have  to  feed 
right  away,  but  if  it  drops  too  low,  the  agent  may  have  to  hunt  for  food.  Energy  can  also 
be  used  to  force  an  agent  to  abandon  a  chase,  if  it  expends  too  much  energy,  and  rest. 
Another  common  use  for  energy  is  to  determine  if  an  animal  has  starved  to  death. 

In  Savannah,  only  the  Cheetahs  are  modeled  with  an  energy  level.  The 
integer-based  energy  level  is  used  to  control  their  hunting  desires.  In  earlier  versions, 
before  the  energy  level  was  implemented,  Cheetahs  could  eat  a  large  population  of 
Antelope  in  a  short  time;  there  was  often  no  population  balance.  With  energy 
implemented,  every  time  a  Cheetah  kills  an  Antelope  its  energy  level  is  boosted  by  a 
predetermined  amount.  The  low  energy  level  dictates  the  level  at  which  the  Cheetah 
must  rest  to  regain  strength.  An  intermediate  level  is  set  high  enough  so  the  Cheetah  can 
start  hunting  again  without  immediately  going  below  their  low  energy  level.  The  high 
energy  level  acts  as  a  hunting  cut  off,  where  once  above  this  level,  the  Cheetah  does  not 
hunt,  keeping  it  from  decimating  an  entire  Antelope  population. 

The  animal  base  class  also  contains  the  methods  needed  to  move  agents 
around  the  environment.  There  are  three  move  functions:  move,  moveTo,  and 
moveFrom.  If  an  agent  is  not  trying  to  move  away  from  or  towards  another  agent,  the 
move  function  updates  the  agent’s  position  based  on  the  speed  of  its  move:  either  rest  or 
regular.  If  the  agent  is  moving  away  from  another  agent,  such  as  when  an  Antelope  is 
being  chased,  the  moveFrom  function  is  used  to  update  its  position.  In  this  chase 
example,  moveFrom  uses  the  location  of  the  Cheetah  to  move  the  Antelope  in  the 
opposite  direction  based  on  the  Antelope’s  maximum  speed.  Similarly,  the  moveTo 
function  is  used  to  update  an  agent’s  position  if  it  is  moving  toward  a  specific  agent,  i.e., 
when  animals  are  attempting  to  mate. 
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While  the  agents  are  free  to  roam  around  the  environment,  the  map 
implementation  does  not  allow  two  agents  to  occupy  the  same  location.  Therefore,  the 
base  class  also  has  a  method  to  avoid  collisions.  This  function  simply  checks  to  see  if  the 
agent  is  trying  to  move  to  an  occupied  position,  and  if  so  calls  the  appropriate  move 
function  until  the  agent  has  identified  a  position  that  is  not  currently  occupied.  This  is 
also  realistic  in  that  most  simulations  need  some  kind  of  collision  avoidance  to  maintain 
believability  of  interaction  between  agents. 

As  mentioned  earlier,  the  use  of  virtual  functions  ensures  that  every 
developer  of  a  subclass  will  define  methods  to  describe  actions  needed  to  complete  the 
model.  In  our  implementation,  we  decided  that  determining  if  agents  could  kill  or  mate 
were  not  actions  that  should  be  generalized  in  the  base  class  since  they  tend  to  require 
species  specific  attention.  The  killing  tradeoff  between  every  agent  pair  is  different  and 
should  be  decided  by  the  developer  of  a  specific  agent. 

While  it  may  be  considered  an  over  simplification,  we  modeled  the 
Cheetah’s  ability  to  kill  Antelope  based  solely  on  proximity.  The  virtual  function  canKill 
provides  the  modeler  with  the  ability  to  describe  the  agent-to-agent  kill  relationship  in 
any  way  they  would  like.  Mating  was  made  a  virtual  function  for  the  same  reason. 

While  cross  species  mating  was  not  the  main  concern,  we  felt  it  was  important  to  define 
the  mating  relationships  within  a  specific  species.  This  results  in  finer  granularity  than 
what  could  be  provided  in  the  base  class. 

d.  Subclasses 

The  use  of  OOP  in  our  simulation  allowed  us  to  develop  a  base  class  that 
implements  attributes  and  behaviors  common  to  all  of  the  agents.  In  addition,  the  use  of 
the  class  structure  provided  a  way  to  implement  species  specific  attributes.  In  Savannah, 
the  Antelope  subclass  includes  information  on  identification,  mating,  creation  of  new 
Antelope  agents,  and  predator  knowledge.  The  Cheetah  subclass  includes  information  on 
identification,  mating,  creation  of  new  Cheetah  agents,  and  killing. 

Every  agent  in  a  simulation  should  have  a  unique  identification  number. 
There  are  many  reasons  why  the  modeler  would  want  to  know  information  about  a 
specific  agent.  In  a  map  or  list  implementation,  agents  must  be  able  to  identify 
themselves  when  iterating  through  loops.  This  prevents  them  from  taking  illegal  actions 
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on  themselves.  Additionally,  specific  identification  numbers  make  it  easy  to  track 
information  such  as;  movement,  mating,  killing,  herding,  and  offspring  creation.  In 
Savannah  an  integer  identification  number,  idNum,  starting  with  one,  is  assigned  to  each 
agent  based  on  species. 

Mating  is  also  handled  in  each  subclass  because  even  though  mating  could 
be  described  generically  as  either  yes  -  they  do,  or  no  -  they  do  not,  it  is  more  appropriate 
to  have  the  flexibility  to  model  species  specific  mating  attributes.  Defining  mating  as  a 
virtual  function  in  the  base  class,  forces  the  modeler  to  determine  if  a  yes  or  no  style 


mating  function  is  appropriate  or  if  a  more  robust  function  is  needed  for  their  simulation. 
This  provides  greater  flexibility  and  allows  for  agents  that  are  more  customizable.  For 
example,  while  some  species,  such  as  Canadian  Geese,  pick  one  mate  for  life,  others  such 
as  Elephant  Seals  mate  in  herds  with  a  dominate  alpha  male  spawning  most  of  the 
offspring.  A  generic  mating  function  could  not  account  for  the  differences  between  both 


of  these  examples. 

In  Savannah,  the  mating  routines  are  very  similar  in  the  Antelope  and 
Cheetah  subclasses.  In  both,  the  canMate  function  returns  a  Boolean  expression  on  the 


ability  of  two  agents  to  mate.  Several  things  factor  into  determining  the  outcome  of  this 


Boolean  logic  to  include:  distance,  age,  season,  species,  sex,  and  whether  or  not  the 
female  is  pregnant.  If  the  function  returns  true,  the  agents  then  mate  and  the  female  agent 


begins  her  gestation  period.  Figure  4.4  shows  the  implementation  of  this  logic. 


bool  Animal: : canMate (Animal  &potentialMate) 

{ 

bool  mateFlag  -  false; 
if (this->getGender ( )  =-  MALE) 

{ 

mateFlag  =  ( ( ! (potentialMate .isPregnant ( ) ) )  && 

(potentialMate . getAge { )  >=  MATE_AGE )  && 
(this->getAge { )  >=  MATE_AGE)  && 

(abs (thiS“>getX ( )  -  potentialMate .getX () ) 
Cabs  (this->getY ( )  -  potentialMate . getY () ) 

} 

else 

{ 

mateFlag  -  ( ( ! (this->isPregnant  ( ) ) )  && 

(potentialMate . getAge ( )  >=  MATE_AGE)  && 
(this->getAge ( )  >=  MATE_AGE)  && 

{ abs ( this->getX ( )  -  potentialMate . getX ( ) ) 
(abs (this->getY ()  -  potentialMate . getY () ) 

} 

return  mateFlag; 


<=  MATE_DI STANCE)  && 
<=  MATE  DISTANCE) ) ; 


<=  MATE_D I STANCE)  && 
<=  MATE  DISTANCE) ) ; 


Figure  4.4:  Method  to  Determine  if  Two  Animals  Can  Mate 


32 


If  agents  choose  to  mate,  they  will  execute  the  mate  function.  The  mate 
function  is  used  to  initialize  the  pregnancy  information  to  include  setting  the  females 
state  to  pregnant,  recording  the  male  id  and  speed  for  genetic  information,  and  starting 
the  gestation  time  counter.  The  gestation  counter  is  simply  an  integer  counter  that 
increments  each  time  step  and  can  be  set  to  account  for  species-specific  gestation  periods. 
When  the  gestation  period  ends,  a  series  of  functions  determine  how  many  agents  will  be 
bom,  and  what  attributes  they  will  have. 

The  litter  size  is  determined  using  a  Normal  distribution  function.  Species 
specific,  minimum  and  maximum  number  bom  are  entered  and  the  conditional  probably 
distribution  function  returns  an  integer  for  the  number  of  agents  created.  To  account  for 
infant  mortality,  each  potential  agent  is  then  tested  to  see  if  it  dies  as  an  infant  in  the 
diesAsInfant  function.  In  Savannah,  infant  mortality  includes  any  agent  that  would  die 
within  the  first  two  years  its  life.  Since  infant  mortality  rates  are  also  species  specific,  a 
floating  point  number  from  0  to  1,  representing  the  probability  of  infant  mortality,  must 
be  entered  for  each  subclass. 

To  streamline  the  simulation,  only  those  agents  that  do  not  die  of  infant  . 
mortality  are  created.  However,  there  are  still  methods  to  track  the  initial  litter  size  and 
number  of  these  that  die  as  infants.  New  agents  are  created  in  the  giveBirth  function. 

This  function  assigns  each  new  agent  a  species-specific  integer  identification  number,  an 
integer  speed  from  either  the  mother  or  father,  and  an  initial  xy  location  near  the  mother. 

The  Cheetah  subclass  contains  an  additional  method  for  killing,  canKill. 
This  method  simply  tests  if  the  Cheetah  is  close  enough,  and  has  the  energy,  to  kill  the 
Antelope.  Figure  4.5  shows  the  implementation  of  canKill.  This  results  in  the  slower 
Antelope  typically  being  killed  off  first,  but  also  causes  the  slower  Cheetah  to  eventually 
die  of  starvation.  Successful  kills  result  in  the  Cheetah  manipulating  the  Antelope’s  state; 
setting  its  death  indicator  to  Predator. 
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bool 

{ 

Cheetah: :canKill (Animal  &prey) 

bool  killFlag  =  false; 

if  ( (abs  (this->getX  ( )  -  prey.getXO) 
(abs  (this->getY()  -  prey.getYO) 
if  (Animal :  :my Rand  ( )  >  .5) 
killFlag  =  true; 
else 

killFlag  =  false; 

<=  KILL  RADIUS)  && 

<=  KILL_RADIUS) ) 

} 

return  killFlag; 

Figure  4.5:  Method  to  Determine  if  Cheetah  Kills  Prey 
While  the  Antelope  does  not  require  a  method  for  killing,  the  subclass 


does  contain  an  additional  method  for  acquiring  predator  knowledge.  This  is  an  attempt 
provide  actual  learning  to  the  agent,  thereby  facilitating  adaptation.  It  is  a  Boolean 
function  that  will  be  described  in  greater  detail  in  the  learning  and  adaptation  subsection 
below. 

e.  Agents  Summary 

Taking  advantage  of  the  functionality  offered  by  the  C++  class  structure 
appears  to  be  an  efficient  methodology  for  representing  agents.  A  generic  base  class 
offers  the  flexibility  to  extend  it  in  order  to  meet  almost  any  need.  Once  the  agents  have 
been  correctly  represented,  their  interactions  need  to  be  implemented  in  such  a  way  as  to 
produce  believable,  understandable  results. 

4.  Interactions 

Agent  interactions  are  one  of  the  essential  characteristics  of  agent-based  models. 
While  the  base  architecture  describes  the  state  variables  and  methods  of  the  agents,  the 
methodology  used  to  sequence  interactions  is  also  very  important  to  the  underlying 
implementation  of  these  simulations.  If  events  are  not  properly  ordered,  possible 
outcomes  can  be  unrealistic,  unbelievable,  and  very  difficult  to  explain. 

As  stated  above.  Savannah  is  executed  in  two  loops;  a  sensing  loop  and  a 
movement  loop.  The  underlying  architecture  to  include  the  methods  executed  during 
these  loops  has  already  been  described.  The  purpose  of  this  section  is  to  take  a  high-level 
look  at  how  and  why  agent  interactions  were  prioritized. 
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In  the  sensing  loop,  Antelope  have  five  possible  actions.  They  can  flee,  mate, 
move  toward  potential  mates,  herd,  or  feed.  The  priority  of  these  events  is  very  important 
to  the  outcome  of  the  simulation.  If  the  Antelope’s  first  priority  were  always  to  mate, 
they  would  typically  not  be  looking  out  for  predators  and  could  easily  fall  prey  to  the 
Cheetah.  We  chose  to  prioritize  the  Antelope’s  actions  based  on  its  current  state,  and 
what  it  sensed  in  its  environment.  The  movement  loop  simply  ensures  that  all  agents 
simultaneously  executed  the  proper  move  to  achieve  their  current  goal. 

If  an  Antelope  has  predator  knowledge  and  there  is  a  Cheetah  within  its  sensing 
range,  it  will  always  flee,  no  matter  what  the  Cheetah  is  doing.  If  an  Antelope  is  not 
fleeing  and  is  in  mating  season,  its  next  priority  is  to  mate  if  it  can.  If  there  is  not  a  mate 
in  proximity  and  it  is  mating  season,  it  will  move  toward  the  nearest  mate  eligible 
Antelope.  If  none  of  the  above  conditions  exist,  the  Antelope  will  either  try  to  move 
towards  other  Antelope  or  feed.  The  effect  is  the  appearance  of  herding  and  searching  for 
food  simultaneously.  This  priority  of  actions  seemed  to  result  in  the  most  realistic 
behaviors  and  outcomes. 

Once  the  Antelope’s  desired  actions  are  set,  the  Cheetah  iterate  through  their 
sensing  loop.  This  ensures  that  Cheetah  are  determining  what  action  to  take  based  on  the 
current  state  of  the  environment.  Cheetah  have  four  possible  actions  to  take  including 
mating,  moving  towards  a  mate,  avoiding  other  Cheetah  and  hunting.  Since  they  have  no 
predators  in  Savannah,  Cheetah  will  always  mate  if  in  mating  season  and  they  are  close 
enough  to  a  potential  mate.  Otherwise,  if  it  is  mating  season  they  will  move  toward  the 
closest  potential  mate.  When  not  in  mating  season.  Cheetah  try  to  avoid  each  other,  and 
when  their  energy  level  becomes  low  enough,  they  are  driven  to  hunt  Antelope.  Again, 
the  Cheetah’s  actions  are  always  constrained  by  their  energy  level. 

Although  we  set  the  priorities  of  the  agents,  we  believe  it  would  be  more 
appropriate  for  them  to  have  the  ability  to  set  and  adjust  their  own  priorities.  To  do  this, 
they  must  have  the  ability  to  interrogate  other  agents  to  determine  other  agents’  states. 

For  example,  if  an  Antelope  can  sense  a  Cheetah,  it  should  be  able  to  tell  if  that  Cheetah 
is  hunting,  mating,  or  taking  some  other  action.  Then  the  Antelope  can  make  a  more 
intelligent  decision  on  what  action  to  take  in  the  presence  of  a  Cheetah,  rather  than 
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always  fleeing  when  it  senses  one.  Fleeing  may  cause  it  to  be  sensed  when  it  may  have 
remained  undetected  if  it  had  rested. 

The  interactions  also  play  a  major  role  in  determining  what  learning  and 
adaptation  the  agents  can  accomplish.  By  setting  the  priorities  for  the  agents,  it  appears 
we  have  constricted  their  ability  to  learn  and  therefore  adapt.  The  learning  and 
adaptation  we  see  is  Savannah  is  very  basic.  There  appears  to  be  a  fine  line  as  to  how 
much  guidance  we  should  provide  the  agents.  It  is  not  only  very  difficult  to  hard  code  all 
interactions,  but  also  limits  the  emergence  of  new  behaviors.  On  the  other  hand,  if  they 
are  just  thrown  in  an  environment  with  no  guidance,  they  do  nothing.  A  few  basic  rules 
to  get  and  keep  agents  interacting  seems  to  be  the  key  to  achieving  true  learning  and 
adaptive  behaviors. 

5.  Learning  and  Adaptation 

Providing  the  agents  with  the  ability  to  learn  and  adapt  their  behaviors  is  the  most 
challenging  component  of  agent-based  modeling.  Once  they  have  been  given  a  set  of 
simple  basic  behaviors  and  interactions,  how  does  one  provide  the  agent  with  the  ability 
to  learn  things  that  can  not  be  anticipated?  Then  how  can  one  tell  if  an  agent  is  actually 
learning  and  adapting  its  behaviors?  To  look  at  these  questions  Savannah  implements  a 
simple  learning  routine  that  allows  the  adaptive  behavior  to  be  easily  recognized.  A  more 
robust  learning  implementation  methodology,  developed  for  the  Bamboo  implementation, 
will  be  discussed  in  that  section. 

Savannah  implements  one  learning  routine  based  on  a  Boolean  value.  This 
method  results  in  constrictive  learning,  because  the  agents  appear  to  only  have  the  ability 
to  learn  things  that  are  determined  by  the  modeler.  However,  some  of  the  emergent 
behaviors  discussed  in  the  next  section  indicate  learning  and  adaptations  are  occurring  on 
levels  that  can  not  be  directly  traced.  To  test  the  Boolean  flag  method  of  learning, 
Antelope  were  provided  with  a  “memory”  field,  called  predator  Knowledge,  to  learn  and 
store  knowledge  about  predators. 

Predator  knowledge  is  a  Boolean  that  indicates  the  agent  either  does  or  does  not 
have  knowledge  of  predators.  To  test  this  method  of  learning,  when  Antelope  agents  are 
created  their  predatorKnowlege  flag  is  either  set  to  tme,  indicating  they  have  the 
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knowledge  that  Cheetah  are  predators,  or  false,  indicating  they  do  not  have  this 
knowledge.  In  the  simulation  loop,  the  predator  knowledge  field  triggers  the  Antelope  to 
flee  if  a  Cheetah  is  within  their  sensing  range. 

Antelope  who  do  not  have  predator  knowledge  are  able  to  learn  it  during  the 
sensing  loop.  During  each  loop  an  Antelope  will  sense  all  other  Antelope  within  a 
specified  range  and  if  it  senses  a  dead  Antelope,  it  will  look  at  the  Antelope’s  state  values 
to  see  how  it  died.  If  it  died  from  a  predator,  the  sensing  Antelope’s  predatorKnowledge 
flag  is  set  to  true.  The  Antelope  has  learned  that  Cheetah  are  bad  and  from  then  on  will 
adapt  its  behavior  to  flee  from  them  if  they  are  within  its  sensing  range.  This  learning 
and  adaptation  cycle  can  be  seen  in  figures  4.6, 4.7, 4.8,  and  4.9.  Figure  4.6  shows  the 
entire  Savannah  environment. 
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Figure  4.6.  Learning  and  Adaptation  in  Savannah 


Figure  4.7  through  4.9  are  magnified  views  of  where  an  interaction  results  in 
learning  and  behavior  adaptation.  Figure  4.7  shows  a  Cheetah  that  is  able  to  intermingle 
with  Antelope.  Antelope  this  close  to  a  Cheetah  do  not  have  predator  knowledge  and 
therefore  do  not  flee.  Figure  4.8  shows  the  same  Cheetah  just  after  it  has  killed  an 
Antelope.  The  nearby  Antelope  will  now  observe  this  interaction  the  next  time  they 
sense.  Figure  4.9  shows  that  the  Antelope  within  sensing  range  of  the  kill  are  now 
attempting  to  move  out  of  the  area.  They  have  learned  that  Cheetah  are  predators  and 
have  adapted  their  behaviors  to  flee  from  them. 


38 


Sim  Time:  855 


Sim  Time:  858  Sim  Time:  862 


Figure  4.7:  No  Figure  4.8:  Cheetah  Figure  4.9:  Antelope 

Predator  Knowledge  Kills  Antelope  Learn  and  Flee 

Both  Antelope  and  Cheetah  agents  appear  to  learn  and  adapt  their 
behaviors  based  on  the  emergent  behaviors  that  are  displayed  in  Savannah.  These 
behaviors  and  what  they  might  indicate  are  discussed  in  the  following  section. 

6.  Emergent  Behaviors 

Emergent  behaviors  are  the  result  of  the  agent  behaviors,  interactions,  learning 
and  adaptation  as  described  above.  They  are  identifiable,  believable  occurrences  of 
events  that  emerge  from  complex  adaptive  agents  interacting  in  a  given  environment.  The 
behaviors  are  present  in  virtually  every  run  of  the  simulation,  but  when  they  appear  they 
may  vary  drastically  based  on  when  the  underlying  events  that  cause  them  occur. 

In  Savannah,  we  identified  several  possible  emergent  behaviors.  All  of  them 
make  sense  when  compared  to  what  is  expected  in  the  real  world.  Some  emergent 
behaviors  are  obvious,  while  others  are  so  subtle  they  are  difficult  to  differentiate  from 
behaviors  that  are  programmed  to  occur.  Emergent  behaviors  noticed  in  multiple  runs  of 
Savannah  include:  Antelope  herd  sizes,  Antelope  become  faster  as  the  species  evolves 
over  time,  Cheetah  appear  to  loiter  around  Antelope  feeding  sites,  and  Cheetah  eventually 
resort  to  group  tactics  for  hunting  faster  Antelope. 

One  of  the  actions  Antelope  in  Savannah  are  programmed  to  do  is  to  find  other 
Antelope.  This  results  in  them  eventually  forming  into  herds.  While  this  in  itself  is  not 
an  emergent  behavior,  the  disposition  of  the  herds  appears  to  be.  There  is  no  algorithm  to 
track  or  pare  the  herd  size,  yet  the  Antelope  typically  form  into  several  herds  of  eight  to 
twenty  members.  It  is  conceivable  that  all  Antelope  in  Savannah  could  form  one  big 
herd,  but  the  simple  routines  that  require  an  Antelope  to  eat,  mate,  and  flee  from  Cheetah 
all  result  in  a  moderation  of  herd  sizes.  Within  these  herds  the  Antelope  populations 
typically  get  faster  over  time. 
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As  seen  in  the  real  world,  the  slower  Antelope  in  Savannah  tend  to  be  killed  at  a 
higher  rate  than  the  faster  Antelope,  although  Antelope  with  no  predator  knowledge  have 
the  same  chance  of  being  killed  regardless  of  their  speed.  The  Cheetah  does  not  have  the 
ability  to  look  at  an  Antelope’s  speed  to  determine  which  one  to  chase.  They  simply  take 
up  the  case  if  they  have  the  energy  and  can  sense  an  Antelope.  As  the  Antelope  flee,  the 
slower  ones  typically  fall  behind  and  are  eaten  by  the  Cheetah.  As  one  might  expect  to 
see  in  the  real  world,  it  becomes  more  difficult  for  the  Cheetah  to  successfully  hunt  as  the 
Antelope  population  gets  faster.  Two  behaviors  appear  to  emerge  to  offset  this 
phenomenon.  First,  Cheetah  begin  to  remain  closer  to  the  Antelope  feeding  sites  and 
secondly,  they  begin  attacking  in  groups  as  they  compete  for  food. 

In  Savannah,  the  Cheetah  appear  to  quickly  stake  out  their  territory  and  typically 
remain  within  it  as  long  as  there  are  Antelope  present.  As  the  simulation  progresses  and 
the  Antelope  get  faster,  it  takes  more  energy  for  the  Cheetah  to  hunt.  Patterns  of  loitering 
near  Antelope  feeding  sites  seem  to  develop.  This  is  probably  explained  by  the  fact  that 
the  Cheetah  need  to  conserve  energy  so  they  can  continue  to  hunt  and  mate.  Once  they 
have  identified  a  source  of  food,  they  do  not  need  to  roam  as  much  to  eat.  If  the  Antelope 
population  becomes  fast  enough  or  sparse  enough,  the  Cheetah  start  to  increase  their 
roaming  distance. 

As  the  Cheetah  begin  to  roam  bigger  areas,  they  tend  to  encounter  more  Cheetah. 
If  the  simulation  progresses  so  that  there  becomes  a  competition  for  food,  it  appears  as  if 
the  Cheetah  begin  to  hunt  in  groups  to  comer  the  faster  Antelope.  This  emergent 
behavior  is  in  no  way  programmed  or  expected,  but  does  make  sense.  The  need  for 
energy  appears  to  cause  them  to  modify  their  behavior  in  an  attempt  to  comer  Antelope, 
ensuring  at  least  one  of  the  Cheetah  will  receive  an  energy  boost.  If  they  were  to  remain 
apart,  they  would  likely  all  die  of  starvation  although  there  may  be  plenty  of  Antelope 
remaining. 

Emergent  behaviors  also  often  seem  to  be  in  the  eye  of  the  beholder.  What  may 
appear  as  emergent  to  one  may  not  even  be  recognized  by  someone  else.  What  is 
consistent  is  that  they  are  non-programmed  phenomena  that  are  explainable  and 
identifiable  when  one  considers  all  the  low-level  interactions  that  occur  to  make  them 
emerge. 
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7. 


Windows/C-H-  Implementation  Summary 


An  object-oriented  architecture  appears  to  be  a  very  good  way  to  implement 
agent-based  simulations.  It  offers  a  structure  that  allows  for  easy,  straightforward 
declaration  and  extension.  Once  the  base  class  or  classes  have  been  identified,  it 
becomes  very  simple  for  other  users  to  modify  the  simulation.  The  Savannah 
implementation  showed  that  with  a  simple,  well-defined  architecture,  the  basic  elements 
of  agent-based  simulations  can  be  achieved.  While  there  are  perhaps  many  ways  the 
implement  these  simulations,  it  is  important  to  note  that  believable  outcomes  will  show 
whether  or  not  the  architecture  has  truly  hit  the  mark. 

Perhaps  one  weakness  in  this  implementation  is  the  requirement  to  have  all  agents 
defined  at  run  time.  The  ability  to  dynamically  extend  a  running  simulation  is  very 
attractive  for  all  the  reasons  discussed  in  previous  chapters.  To  take  a  look  at  how  such 
an  architecture  might  be  implemented,  we  next  modeled  Savannah  using  Bamboo.  We 
named  this  implementation  Savannah  3D. 

C.  BAMBOO  IMPLEMENTATION 

1.  Introduction 

The  methodology  behind  the  Bamboo  architecture  implementation  is  considerably 
different  from  the  Windows/C++  implementation,  although  Bamboo  still  uses  Microsoft 
Visual  C++  to  compile  the  code.  The  main  difference  stems  from  Bamboo  itself,  which 
is  a  toolkit  that  extends  the  functionality  of  the  preexisting  C++  libraries  and  then 
provides  an  execution  layer  above  the  Windows  NT  kernel.  The  code  executed  in 
Bamboo  runs  inside  this  layer.  As  a  proof  of  concept  for  the  Bamboo  version,  we  built  a 
predator-prey  relationship  very  similar  to  our  Savannah  simulation  and  called  it  Savannah 
3D,  since  its  display  window  provides  a  three-dimensional  (3D)  representation  of  the 
simulation. 

The  following  sections  describe  the  Bamboo  architecture  implementation,  but  due 
to  its  similarity  with  the  Windows  version,  we  will  only  highlight  the  areas  where 
Savannah  3D  is  different.  For  that  reason,  the  emergent  behaviors  subsection  seen  in  the 
Windows  version  will  not  be  covered  since  this  area  did  not  change. 
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2. 


Interface 


Running  on  Windows  NT  4.0,  Bamboo  provides  the  user  with  a  command-line 
interface  through  a  DOS  shell.  Modules  can  be  loaded  into  or  removed  from  the 
execution  core  during  run  time  with  the  dynamicPageModule.  This  is  significant  in  three 
ways.  First,  it  allows  the  modeler  to  create  and  load  new  agents.  Second,  modelers  have 
the  ability  to  remove  an  agent  from  the  world.  Third,  which  combines  the  first  two,  a 
modeler  can  remove  an  agent,  redefine  and  reload  it.  What  differentiates  this  from  the 
traditional  simulation  methodology  is  that  this  can  all  be  done  without  halting  the 
simulation,  providing  greater  flexibility.  Using  the  dynamicPageModule  also  results  in  a 
smaller  executable  because  users  only  load  those  modules  necessary  for  a  given 
simulation  run. 

To  convert  our  Windows/C-H-  version  over  to  Bamboo,  we  created  five  separate 
modules.  The  first  module,  agent  Display  Module,  which  simply  creates  a  single¬ 
document,  OpenGL  window  that  represents  an  empty  3D  world.  Unlike  the  Windows 
version,  the  OpenGL  window  used  to  display  the  simulation  is  fully  sizeable.  The  other 
four  modules  -  npsAgentModule,  antelopeModule,  cheetahModule,  and  grassModule  will 
be  discussed  in  the  following  subsections.  Figure  4.10  shows  the  agentDisplayModule 
with  numerous  instances  of  the  Antelope,  Cheetah,  and  Grass  modules. 
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Figure  4.10:  Savannah  3D  with  Loaded  Modules 


Users  navigate  through  the  world  using  the  mouse  to  control  3D  flight.  The  left 
mouse  button  controls  forward  flight,  while  the  right  mouse  button  controls  backward 
flight.  The  world  also  has  three  predefined  views  that  can  be  invoked  using  the 
keyboard.  The  first,  invoked  by  the  spacebar,  is  on  ground  level  at  the  origin  looking  in 
the  direction  of  the  negative  z-axis.  The  second,  invoked  by  the  key,  is  200  units 
above  the  origin  looking  straight  down,  and  the  last,  “ ctrl-t ”  is  located  at  x=50,  y=100, 
and  is  looking  back  to  the  origin.  As  users  develop  modules  for  the  simulation,  they  can 
define  other  keystrokes  to  invoke  new  camera  viewpoints.  If  a  user  desires  any  type  of 
output  from  the  simulation,  text  can  be  written  to  the  DOS  shell.  Functionality  that  will 
soon  be  implemented  in  Bamboo  will  provide  a  Graphical  User  Interface  (GUI)  where 
the  user  will  be  able  to  change  agent  attributes  and  view  output  from  the  simulation  in  a 
separate  GUI  window. 
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3. 


Architecture 


a.  Overall  Design 

Many  of  the  issues  we  encountered  implementing  the  Windows  version 
regarding  which  data  structure  to  use  for  object  control  and  manipulation  were  eliminated 
by  using  Bamboo  because  it  has  this  functionality  built  in.  Every  agent  created  in  the 
simulation  is  based  on  an  underlying  object  class  in  Bamboo  called  bbListedClass,  and 
has  an  associated  geometry,  npsGeometry,  that  represents  the  agent  in  the  virtual  world. 
The  bbListedClass  automatically  places  the  agent  objects  on  a  control  list  that  can  be 
traversed  at  any  time  by  obtaining  a  handle  to  the  list.  Although  this  is  a  linked-list 
implementation,  Bamboo  is  multi-threaded  so  we  were  able  to  fork  a  new  thread  to 
control  the  agents’  move  and  sense  loops.  Separating  computational  requirements 
through  the  use  of  threads  increased  performance  over  our  previous  version  by  ensuring 
the  graphics  engine  was  given  access  to  the  processor  in  regular  intervals  and  allowed  to 
refresh  the  world  at  a  decent  rate.  In  Savannah,  the  graphics  draw  functions  were 
executed  sequentially  in  turn  with  the  move  and  sense  loops.  This  meant  that  it  could 
only  refresh  the  display  window  after  all  agents  had  completed  one  pass  through  their 
move  and  sense  loops,  which  caused  a  noticeable  screen  flicker  as  more  agents  populated 
the  world. 

b.  Agents 

When  developing  Savannah  3D,  most  of  the  agent  architecture  was  similar 
to  our  Savannah  version  although  we  did  try  to  further  develop  the  class  structure.  In  the 
Bamboo  version,  the  focus  was  to  design  a  more  generic  agent-based  simulation  that 
would  provide  modelers  greater  flexibility  in  creating  new  agents  that  could  seamlessly 
plug  into  a  running  simulation.  To  that  end,  we  created  a  generic  npsAgent  class  as  the 
base  class  and  then  extended  it  to  create  our  Animal,  Plant,  Antelope,  Cheetah,  and  Grass 
classes.  Figure  4.1 1  shows  the  class  structure  as  it  was  implemented. 
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Figure  4.11:  Savannah  3D  Class  Structure 


As  a  rule,  every  agent  class  that  would  eventually  be  instantiated  in  the 
simulation  had  a  module  of  its  own,  and  resided  as  a  leaf  of  that  tree,  so  our  simulation 
had  AntelopeModule,  CheetahModule,  and  GrassModule.  Each  of  these  modules 
contains  the  specific  class  and  all  application  functionality  needed  to  create  the  agent  in 
Savannah  3D.  All  other  abstract  classes  to  include  npsAgent,  Animal,  and  Plant  were 
included  in  the  npsAgentModule. 

c.  Base  Class 

The  npsAgent  class  was  designed  to  implement  only  the  basic  state 
variables  and  functionality  that  might  be  needed  by  all  future  agents.  To  facilitate  the 
addition  of  many  different  types  of  agents,  we  created  a  generic  agent  that  implemented  a 
base  class  with  the  following  state  variables  -  speed,  age,  sensing  range,  and  energy 
level.  We  also  included  an  agent-type  attribute  and  a  Boolean  flag  that  can  tell  Bamboo 
to  remove  the  agent  once  it  is  no  longer  needed  in  the  simulation.  To  further  develop  the 
learning  capabilities  of  the  agents  in  Savannah  3D,  npsAgent  contains  a  set  of  vectors  that 
allow  an  agent  to  store  and  remember  class  names  of  other  agents  it  has  discovered  in  the 
environment.  The  vectors  include  knownPredators,  knownFriends,  knownEnemies, 
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known  Energy  Sources,  and  unknownAgents.  If  an  agent  discovers  a  new  agent  and 
establishes  a  relationship  with  that  agent,  it  can  add  the  new  one  to  the  appropriate  vector 
and  use  that  information  to  guide  how  it  interacts  with  the  agent  in  the  future.  If  it  can 
not  determine  the  relationship,  then  it  must  add  the  agent  to  its  unknown  vector.  This 
implementation  is  a  slightly  more  robust  form  of  memory  than  the  simple  Boolean-flag 
mechanism  used  in  Savannah.  The  extra  memory  allows  an  agent  to  develop  a  better 
database  of  information  about  its  world  and  allows  it  to  interact  with  the  environment  at 
more  sophisticated  level.  The  various  benefits  of  this  approach  will  be  discussed  later. 

A  location  field  was  not  required  in  the  base  class  with  this  version 
because  the  Bamboo  npsGeometry  class  included  with  each  agent  object  contains  a  3D- 
position  field.  Bamboo  also  provides  a  three-element  vector  class  that  can  be  used  to 
pass  or  update  the  x,  y,  z  coordinates  of  the  geometry’s  position  field. 

Since  we  did  not  want  the  npsAgent  to  define  the  sensing  and  moving 
functions  for  all  its  subclasses,  we  included  virtual  functions  for  each  to  ensure  that  the 
modeler  would  implement  these  for  every  agent  developed  for  a  simulation.  When  a 
simulation  runs  in  Bamboo,  the  only  way  it  can  track  the  agents  and  allow  them  to  update 
their  positions  is  by  handling  them  all  as  npsAgent  class  objects.  By  including  the  sense 
and  updatePosition  virtual  functions.  Bamboo  can  loop  through  the  list  of  active  objects 
(which  it  recognizes  as  npsAgents)  and  call  the  two  functions.  Polymorphism  allows  the 
simulation  to  dynamically  link  to  the  correct  definition  of  the  sense  and  move  methods  by 
checking  the  derived  class  hierarchy  until  it  finds  where  the  methods  are  defined. 

d.  Subclasses 

Savannah  has  five  subclasses.  The  Animal  and  Plant  are  abstract  classes 
that  implement  functionality  common  to  all  animals  and  plants  respectively.  The  next 
two,  Antelope  and  Cheetah,  are  subclasses  of  Animal,  and  the  last,  Grass  is  a  subclass  of 
Plant.  Figure  4.8  shows  how  each  of  these  classes  contributed  to  our  architecture. 
Animal,  Antelope,  and  Cheetah  remain  virtually  the  same  as  they  were  in  Savannah.  The 
new  subclasses  included  in  Savannah  3D  are  the  Plant  and  Grass  classes.  Plant  is  an 
abstract  class  that  defined  attributes  and  methods  needed  by  all  derived  plant  agents. 
Grass  is  a  very  simple  class  that  extends  Plant  and  implements  a  grass  agent  with  no 


interaction  or  functionality.  It  was  created  only  to  add  grass  to  the  simulation  to  provide 
the  Antelope  with  feeding  areas. 

4.  Interactions 

The  interactions  defined  and  witnessed  in  Savannah  3D  did  not  differ 
significantly  from  those  in  Savannah.  The  one  change  was  the  elimination  of  the  referee 
that  was  used  in  our  Windows  implementation.  As  mentioned  in  chapter  II,  the  outcomes 
to  interactions  between  agents  is  normally  decided  by  a  referee  that  has  knowledge  of  the 
whole  system  including  all  agents.  The  referee  must  decide  a  fair  outcome  and  indicate 
that  to  the  agents.  This  is  easy  to  accomplish  in  a  statically  developed  simulation  where 
all  agents  that  will  ever  enter  the  world  are  known  ahead  of  time. 

In  Savannah  3D,  all  agents  are  derived  from  the  same  base  class  which  requires 
them  to  contain  enough  built-in  logic  to  leam  about  other  agents  and  determine  the 
outcomes  of  interactions  on  their  own.  It  would  be  impossible  to  program  a  referee  that 
had  knowledge  of  all  potential  agents  that  might  enter  the  world,  because  Bamboo  allows 
new  agents  to  be  implemented  after  the  simulation  has  been  created  and  compiled.  The 
overhead  associated  with  having  a  referee  who  could  dynamically  leam  about  every  agent 
to  ever  enter  the  simulation  would  be  too  costly.  Also,  the  referee  would  in  fact  be 
performing  the  interrogate-leam  functions  that  all  other  agents  would  be  doing,  making 
the  referee  no  better  than  any  single  agent.  For  these  reasons,  a  referee  in  a  Bamboo 
implementation  is  neither  practical  nor  needed. 

5.  Learning  and  Adaptation 

This  is  probably  the  most  important,  and,  as  we  mentioned  in  the  Windows 
architecture  section,  the  most  challenging  part  of  creating  an  agent-based  simulation. 
From  Savannah,  we  determined  that  agents  should  have  memory  and  corresponding  logic 
that  allowed  them  to  make  smarter  decisions  while  navigating  through  the  simulation.  A 
desire  to  provide  this  prompted  the  creation  of  the  dynamic  vectors  mentioned  in 
subsection  c  above.  Each  vector  allows  the  agent  to  store  class-names  of  any  agents  it 
encounters,  into  groups  based  on  its  relationship  with  each  agent.  As  the  relationship 
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develops  or  possibly  changes  over  time,  the  agent  can  move  or  delete  the  reference  to  that 
agent  to  keep  track  of  the  appropriate  relationship. 

In  order  for  the  memory  mechanisms  to  benefit  the  agent,  each  agent  must  have 
logic  that  takes  advantage  of  them.  While  the  functionality  was  included  with  npsAgent 
to  manipulate  the  contents  of  each  memory  vector,  no  logic  was  provided  to  tell  the  agent 
what  to  do  with  the  information.  Since  every  agent  pair  will  establish  specific 
relationships  with  each  other  in  ways  that  minimize  cost  and  maximize  payoff,  it  would 
not  be  possible  for  the  base  class  to  try  to  provide  that  logic. 

To  demonstrate  howto  implement  logic  that  might  complement  the  memory 
provided  in  Savannah  3D,  we  implemented  the  same  learning  for  Antelope  that  we  had 
done  in  the  Windows  version.  In  order  to  facilitate  an  Animal  agent  in  learning  about 
any  predators  or  enemies  it  might  have,  we  included  a  killer  field  in  the  Animal  class. 
Now,  if  an  Antelope  agent  is  killed  by  a  Cheetah,  it  will  set  the  killer  value  to  “Cheetah”. 
Any  other  Antelope  within  sensing  range  will  see  the  dead  Antelope  and  be  able  to 
determine  that  the  Cheetah  agent  was  the  killer.  With  this  knowledge,  the  Antelope 
agents  can  then  add  “Cheetah”  to  their  knownPredator  list  and  act  accordingly  the  next 
time  they  sense  a  Cheetah.  Again  this  is  a  very  simple  example,  but  the  goal  was  only  to 
explore  the  possibility  of  a  more  robust  learning  and  adaptation  method. 

6.  Bamboo  Implementation  Summary 

The  Bamboo  toolkit  provides  the  basis  for  a  very  dynamic  implementation  of 
agent-based  simulations.  The  predefined  functionality  hides  many  of  the  implementation 
details,  so  the  modeler  can  concentrate  on  properly  extending  existing  modules  with  well- 
defined  agent  models. 

The  real  attractiveness  of  Bamboo  though,  is  dynamic  extensibility.  The 
architecture  implementation  of  Savannah  3D  displayed  a  rudimentary  version  of  this 
capability.  As  mentioned  earlier,  this  greatly  increases  the  flexibility  of  a  simulation. 

For  example,  modelers  often  define  entities  to  represent  specific  interactions  or 
relationships  in  the  real  world.  After  observing  simulation  runs  for  a  period  of  time,  they 
begin  to  identify  new  aspects  of  the  entities  that  should  be  studied.  As  they  identify 
specific  attributes  of  the  agents  that  should  have  been  included  in  the  initial 
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implementation,  they  can  use  Bamboo  to  unplug  and  redefine  the  agent  to  explore  new 
relationships  or  interactions.  Conversely,  the  Windows/C++  implementation  would 
require  modelers  to  stop  simulation,  redefine  the  agents,  recompile  the  simulation,  and 
then  start  the  simulation  again.  Dynamic  extensibility  is  a  robust  feature  of  Bamboo  that 
provides  modelers  with  unlimited  options  when  deciding  on  how  best  to  model  a 
particular  agent. 

Another  very  nice  feature  of  Bamboo  is  the  ease  with  which  simulations  written 
in  C++  for  other  applications  can  be  ported  over.  Very  little  of  the  actual  methodology 
behind  Savannah  had  to  be  changed  to  build  Savannah  3D.  In  fact,  since  Bamboo 
provides  functionality  not  available  with  other  programming  libraries,  some  of  the 
implementation  can  actually  be  streamlined  during  the  conversion  process.  Again,  we 
saw  this  when  all  of  the  location  functionality  of  Savannah  was  removed  on  the 
conversion  to  Savannah. 

Perhaps  the  biggest  benefit  to  this  type  of  implementation  is  the  fact  that  modelers 
can  create  and  execute  simulations  on  multiple  platforms,  while  the  Windows/C++ 
implementation  is  constrained  to  the  Windows  OS. 

D.  SUMMARY 

The  preceding  sections  provide  an  overview  of  two  different  architectural 
implementations  for  agent-based  simulations.  The  predator-prey  models,  Savannah  and 
Savannah  3D,  were  built  to  explore  issues  associated  with  developing  agent-based 
simulations.  Both  the  Windows/C++  and  Bamboo  designs  seem  to  be  feasible  options 
for  building  these  simulations.  Both  implementations  also  take  advantage  of  the 
functionality  offered  by  OOP  languages.  These  advantages  include  encapsulation, 
inheritance,  polymorphism,  and  the  STL. 

The  Windows/C++  version  is  a  relatively  straightforward  implementation,  in  that 
it  is  a  convention  easily  explained  and  understood.  The  class  structure  provides  an  ideal 
way  to  model  agents  and  their  behaviors.  Allowing  all  agents  to  simultaneously  sense 
and  act  on  simple  rule  sets  results  in  realistic  interactions  among  agents,  and  often 
produce  complex  emergent  behaviors  that  allow  the  researcher  to  conduct  cognitive 
experiments. 
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The  Bamboo  version  is  more  abstract,  but  in  the  long  run,  a  much  more  attractive 
implementation.  Not  only  does  it  offer  all  the  advantages  of  the  Windows/C-H-  version, 
but  also  provides  the  capability  to  dynamically  add  agents  to  a  running  simulation.  This 
methodology  makes  programming  very  challenging;  agents  must  not  only  interact  and 
adapt  to  agents  that  are  known  at  run  time,  they  must  also  do  so  with  agents  that  were  not 
defined  before  run  time. 
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V.  CONCLUSIONS 


A.  CONCLUSION 

Both  the  Windows/C++  and  Bamboo  agent-based  simulation  architectures  appear 
to  be  appropriate  for  building  an  enterprise  model  of  the  Navy.  Input  from  subject  area 
experts  will  allow  the  proper  agent  functionality  and  inter-agent  relationships  to  be 
accurately  defined.  Agents  with  the  ability  to  learn  and  adapt  in  their  pursuit  of  goals 
will  provide  a  robust  simulation  that  allows  leaders  to  view  the  potential  outcomes  of 
their  decisions  through  emergent  behaviors. 

While  we  have  explored  the  issues  of  developing  two  types  of  agent-based 
simulation  architectures,  building  an  enterprise  model  of  the  Navy  at  such  a  low-level  is 
probably  not  appropriate.  It  appears  that  the  best  approach  to  take  when  building 
SimNavy  would  be  to  create  a  modeling  engine  that  contains  the  needed  functionality  to 
define  specific  agents  through  an  easy-to-use  interface.  This  would  allow  modelers  to 
focus  on  developing  accurate  models  of  desired  agents  without  having  to  concern 
themselves  with  code  and  implementation  issues.  It  could  be  developed  using  many  of 
the  same  ideas  from  the  architectures  we  developed.  Current  students  in  the  Naval 
Postgraduate  School’s  Modeling,  Virtual  Environments,  and  Simulation  Curriculum  plan 
further  research  in  this  area. 

B.  FUTURE  WORK 

The  following  section  lists  future  projects  that  could  assist  in  further  exploring  the 
issues  associated  with  using  the  agent-based  simulation  methodology  to  build  an 
enterprise  model  of  the  Navy. 

1.  SimNavy  Agents 

When  developing  an  enterprise  model  of  the  Navy,  one  of  the  first  issues  that 
needs  to  be  addressed  is  to  identify  what  components  are  required  to  be  modeled.  Once 
these  components  have  been  identified,  the  level  to  which  they  should  be  modeled,  either 
as  individual  entities  or  aggregated  systems,  needs  to  be  studied.  Close  coordination  with 
all  Navy  agencies  will  help  with  the  development  of  the  logic  and  functionality  of  these 
various  Navy  agents.  This  in  and  of  itself  will  be  a  very  challenging  task  since  it  appears 
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that  most  of  the  information  currently  available  is  stove  piped,  with  very  little  cross  talk 
between  agencies. 

\ 

2.  Learning  and  Adaptation 

It  is  very  difficult  to  establish  a  generic  solution  for  dynamic  agent  learning  and 
adaptation.  We  explored  two  methods  for  providing  agents  with  this  capability.  A  very 
simple  Boolean  flag  method  was  used  to  indicate  knowledge  of  predetermined 
relationships.  The  status  of  the  flag  provided  access  to  different  functionality  and 
triggered  new  behaviors,  but  was  very  limited.  In  the  Bamboo  implementation  a  more 
robust  structure  using  dynamic  arrays  was  implemented  to  assist  in  learning.  Both  seem 
to  accomplish  the  goal,  but  is  there  a  more  efficient  or  dynamic  way  to  do  so?  Is  there  a 
way  to  generalize  learning  even  more?  How  can  this  learning  be  tied  better  to 
adaptation?  Future  work  could  entail  a  more  detailed  exploration  of  methods  to  provide 
agents  with  a  robust  learning  ability  that  allows  them  to  adapt  their  behaviors. 

3.  Networked  Applications 

The  Savannah  and  Savannah  3D  architectures  were  built  to  run  on  stand-alone 
computers.  The  Windows/C++  implementation  is  not  directly  portable  to  distributed 
applications.  The  Bamboo  toolkit,  however,  is  designed  for  networked  virtual 
environments,  and  provides  an  outstanding  platform  to  build  networked  agent-based 
simulations.  This  area  is  wide  open  for  research.  Probably  one  of  the  first  and  most 
critical  areas  that  should  be  studied  is  how  and  in  what  format  does  agent  data  need  to  be 
passed  across  the  network  so  as  not  to  lose  any  of  the  functionality  of  an  agent-based 
model? 

4.  SimNavy  Engine 

Savannah  3D  is  an  attempt  to  generalize  agent-based  modeling  enough  so  that  it 
can  be  easily  modified  to  execute  many  different  variations  of  a  simulation.  To  build  a 
fully  functional  enterprise  model  of  the  Navy  is  going  to  require  a  generalized,  yet  very 
robust  architecture.  Research  in  this  area  is  needed  to  determine  what  other  functionality 
can  be  added  to  or  implemented  with  Bamboo  to  begin  building  a  SimNavy  engine.  Such 
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an  engine  would  provide  a  simple  GUI  that  could  be  used  to  study  the  numerous  dynamic 
relationships  that  exist  throughout  the  Navy’s  structure. 
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WINDOWS/C++  IMPLEMENTATION 


//** . . . *♦***' 

//  EXECUTIVE  SUMMARY 
//File  Name:  Animal. h 

// 


//Authors : 

// 

// 

//Description: 

// 

// 

//March  1999,  Master  Thesis 

. . ♦.********«■♦*******.. 


Mark  A.  Boyd;  maboyd@bigfoot.com 
Todd  A.  Gagnon;  todd@gagnon.com 

Package  contains  definition  of  Animal  class  and  its 
member  functions  to  work  in  a  larger  simulation 


#ifndef  .ANIMAL _H 

♦define  _ ANIMAL_H _ 

♦include  ■stdafx.h" 
♦include  <math.h> 


struct  Pregnancy { 
int  partner Id; 
int  maleSpeed; 
int  gestationTime; 
int  seas onCoun ter; 

} ; 

class  Animal  { 
private : 


MOVE_SPEED  speedO  f Nex tMove ; 

DEATH_INDICATOR  deathlndicator; 

char  gender; 

int  maxSpeed,  1 

age, 

generation, 
location, 
moveToLocation, 
mo ve Fr omLo c a t i on , 
deathCounter, 
energyLevel ; 

bool  pregnant, 
inSeason, 
resting; 


public: 

//Default  Constructor 
Animal () ; 

//Newborn  Initialization  Constructor 


Animal  (int  s,  int  gn,  int  1); 

//Default  Destructor  -  does  nothing  at  this  time 
-Animal ( ) ; 

//move  the  animal 
void  move () ; 
void  avoidCollisionO  ; 
void  moveTot int  1); 
void  moveFrom ( int  1); 

//test  if  two  animals  are  within  the  provided  range  of  each  other 
bool  inRange (Animal  &secondAnixnal,  int  testRange); 

//generate  a  random  number 
double  myRand  (); 

//get  and  set  the  max  speed  of  animal 

int  ge tMaxSpeed ( )  ; 

void  se tMaxSpeed (int  s) ; 

//get  gender  of  animal 
char  getGender { ) ; 
void  setGender (char  g) ; 

//get  and  set  energy  level 
int  getEnergyLevel ( ) ; 
void  setEnergyLevel (int  el); 

//get  and  set  xy  coordinate  (location)  of  animal 
int  getLocation ( ) ; 
int  getXO  ; 
int  getYO ; 

void  setLocation (int  xy) ; 
void  setLocation (int  x,  int  y) ; 
void  setRandomLocationO ; 

//get  and  set  the  choice  of  speed  for  next  move 

MOVE_SPEED  getSpeedOfNextMove  ( ) ; 

void  setSpeedOfNextMove (MOVE_SPEED  ms); 

//get  and  set  reason  for  animals  death 
DEATH_INDICATOR  getDeathlndicator  ( ) ; 
void  setDeathlndicator  (DEATH_ INDICATOR  di) ; 

//get  and  set  deathCounter 
int  getDeathCounter () ; 
void  setDeathCounter ( int  dc) ; 

//get  age  of  animal 
int  getAgeO; 
void  setAge(int  a); 


//get  and  set  location  to  move  to 

int  getMoveToLocation () ; 

void  setMoveToLocation(int  mtl); 

//get  and  set  location  to  move  from 

int  getMoveFromLocationO  ; 

void  setMoveFromLocation (int  mfl); 

//can  the  animals  mate 

virtual  bool  canMate (Animal  fcpotentialMate) ; 
virtual  void  mate (Animal  &mate){}; 

//test  to  see  if  predator  can  kill  the  prey 
virtual  bool  canKi 11 (Animal  fcprey) ; 

//get  distance  between  two  animals 
int  getDistance (Animal  fcanimal); 
int  distanceFromFoodfint  1); 

//age  animal  one  year 
void  growOlder ( ) ; 

//see  if  female  is  pregnant 

bool  isPregnant () ; 

void  setPregnant (bool  p) ; 

//see  if  the  animal  is  in  season 

bool  isInSeason() ; 

void  set inSeas on (bool  is); 

//see  if  animal  is  dead 
bool  isDeadO  ; 

//see  if  animal  needs  to  rest 
bool  isResting(); 
void  setRest (bool  r); 

//pointer  to  Pregancy  struct 
Pregnancy*  pregPtr; 

>; 


„***********,******.**** . . . . . 

//  INLINE  FUNCTIONS 

f  /****************»***************************.*,,  ^.^^  ******************* 

inline  int  Animal : :getMaxSpeed( ) 

( 

return  maxSpeed; 

) 

inline  void  Animal: :se tMaxSpeed (int  s) 

( 


//get  and  set  generation  of  animal 

int  getGenerationO ; 

void  setGeneration(int  g) ; 
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maxSpeed  =  s; 


} 


inline  char  Animal : rgetGender  ( ) 

( 

return  gender; 

> 

inline  void  Animal : :setGender (char  g) 

{ 

gender  =  g; 

} 

inline  int  Animal: rgetEnergyLevel () 

{ 

return  energyLevel; 

} 

inline  void  Animal : :setEnergyLevel (int  el) 

{ 

energyLevel  =  el; 

) 

inline  int  Animal : :getMoveToLocation() 

{ 

return  moveToLocation; 

> 

inline  void  Animal : : setMoveToLocat ion (int  mtl) 

{ 

moveToLocation  =  mtl; 

) 

inline  int  Animal : :getMovePromLocation() 

{ 

return  moveFromLocation; 

> 

inline  void  Animal: :setMoveFromLocation< int  mfl) 
{ 

moveFromLocation  =  mfl; 

) 

inline  int  Animal: :getLocation{) 

{ 

return  location; 

) 

inline  int  Animal : :getX{ ) 

< 

return  (location  %  MAX_X) ; 

> 

inline  int  Animal : :getY( ) 

{ 

return  (location  /  MAX.JO ; 

> 


inline  bool  Animal: :isInSeason() 

{ 

return  inSeason; 

) 

inline  void  Animal : :setlnSeason (bool  is) 

{ 

inSeason  =  is; 

) 

inline  bool  Animal : :isRes ting () 

< 

return  resting; 

} 

inline  void  Animal : :setRest (bool  r) 

{ 

resting  «  r; 

> 

inline  DEATH_INDICATOR  Animal: igetDeathlndicator {) 

{ 

return  deathlndicator; 

> 

inline  void  Animal: :setDeathIndi cat or (D£ATH_INDICATOR  di) 
{ 

deathlndicator  =  di; 

> 

inline  int  Animal : :getDe a thCounter ( ) 

( 

return  dea thCounter; 

) 

inline  void  Animal : :setDeathCoun ter (int  dc) 

{ 

deathCounter  =  dc; 

) 

inline  bool  Animal : :isDead( ) 

( 

return  (deathlndicator  1=  NOT_DEAD) ; 

) 

inline  void  Animal: :grow01der() 

( 

age++ ; 

) 

♦endif 

//end  file  animal. h 


inline  void  Animal : :setLocation( int  xy) 

{ 

location  =  xy; 

> 

inline  void  Animal : :se tLocat ion (int  x,  int  y) 

{ 

location  =  y  *  MAX__X  +  x; 

) 

inline  void  Animal : :setRandomLocation() 

{ 

location  =  int(myRand()  *  MAX_X  *  MAX_Y); 

) 

inline  MOVE_SPEED  Animal : : get SpeedOfNextMove ( ) 

( 

return  speedOfNextMove; 

> 

inline  void  Animal : :setSpeedOfNextMove (MOVE_SPEED  ms) 

{ 

speedOfNextMove  =  ms; 

} 

inline  int  Animal: :getAge() 

( 

return  age; 

) 

inline  void  Animal: :setAge (int  a) 

{ 

age  =  a; 

} 

inline  int  Animal : :getGeneration( ) 

{ 

return  generation; 

) 

inline  void  Animal : :setGeneration( int  g) 

( 

generation  =  g; 

) 

inline  bool  Animal: :isPregnant() 

( 


return  pregnant; 

> 

inline  void  Animal :: setPregnant (bool  p) 
( 

pregnant  =  p; 

} 


//* . * . . 

//  EXECUTIVE  SUMMARY 
//File  Name:  Animal. cpp 

// 

/ /Authors : 

// 

// 

//Description: 

// 

// 

//March  1999,  Master  Thesis 
//*************************• 


Mark  A.  Boyd;  maboyd@bigfobt.com 
Todd  A.  Gagnon;  todd@gagnon.com 

Package  contains  definition  of  Animal  class  and  its 
member  functions  to  work  in  a  larger  simulation 


♦include  <stdio.h> 
♦include  <iostream.h> 
♦include  <stdlib.h> 
♦include  <ctime> 

♦  include  "Animal  .h“ 


//*** . . . ************, 

//  DEFINES  AND  FILE  SCOPE  CONSTANTS 

/^**********************************i 


// - - - 

//  Function:  Animal :: Animal () 

//  Return  Val:  None 
//  Parameter:  None 
//  Purpose:  Default  constructor 

// - - - 

Animal : : Animal  ( ) 

: speedOfNextMove (REGULAR) ,  deathlndicator (NOT_DEAD) ,  pregPtr (NULL) , 
pregnant (false) ,  inSeason ( false) ,  generation (1) ,  moveToLocation ( 0) , 
moveFromLocation (0 ) ,  deathCounter (0) ,  energyLevel (800) ,  resting (false) 

{ 

double  genderRand  =  myRand ( ) ; 

if  (genderRand  <  0.5) 
gender  =  MALE; 
else 

gender  =  FEMALE; 

//assign  a  random  max  speed  for  the  animal  between  5.. 10 
maxSpeed  -  myRand  0*10; 

if  (maxSpeed  <  5) 
maxSpeed  +=  5; 

setRandomLocation ( ) ; 

age  =  int (myRand ( )  *  ANIMAL_AGE) ; 

)//end  animal :: animal () 
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// - 

//  Function:  Animal: : Animal (int  s,  int  x,  int  y) 


//  Return  Val:  None 

//  Parameter:  Speed,  XY  position 

//  Purpose:  Newborn  initialization  constructor 

// - - - - - - 

Animal: : Animal (int  s,  int  gn,  int  1) 

:  speedOfNextMove (REGULAR) ,  deathlndicator (NOT_DEAD) ,  maxSpeed(s) , 
genera t i on (gn),  age (NEWBORN_AGE) ,  pregnant (false) ,  inSeason { false ) , 
pregPtr (NULL) ,  location(l+l) ,  moveToLocation(O) ,  moveFromLocation(O) , 
deathCounter (0) ,  energyLevel (800) ,  resting(false) 

( 

double  genderRand; 

gender  Rand  =  myRandO; 
if  (genderRand  <  0.5) 

{ 

gender  =  MALE; 

> 

else 

< 

gender  =  FEMALE; 

> 

>//end  Animal: : Animal  (int  s,  char  g,  int  x,  int  y) 


// - 

//  Function:  Animal :: -Animal () 

//  Return  Val:  None 
//  Parameter:  None 
//  Purpose:  Default  destructor 

// - 

Animal: : -Animal () 

( 

//do  nothing  at  this  point 
) / /end  Animal : : -Animal ( ) 


// - 

//  Function:  Animal :: move  () 

//  Return  Val :  void 
/ /  Parameter :  None 

//  Purpose:  move  animals  that  are  not  resting 

// - - - 

void  Animal : : move ( ) 

{ 

if  (SpeedOfNextMove  1=  REST) 

{ 

int  tempX  =  this->getX() , 
tempY  =  this->getY() ; 

double  randx  =  myRand ( ) ; 
double  randY  =  myRandO; 

if  (randx  <-  0.5) 
tempX — ; 


else 

tempX++; 

if  (randY  <=  0.5) 

tempY--;  //  this  moves  the  animal  up  one  row 
else 

tempY++;  //  this  moves  the  animal  down  one  row 
if (tempX  <=  MIN_X) 

tempX  =  MIN_X  +  1; //bring  the  animal  back  one  unit 
if (tempX  >=  MAX_X) 

tempX  =  MAX.JC-1; //bring  the  animal  back  one  unit 
if (tempY  <=  MIN_Y) 

tempY  =  MIN_Y  +1;  //move  the  animal  down  one  row 
if (tempY  >=  MAX_Y) 

tempY  =  MAXJY  -  1;  //move  the  animal  up  one  row 
this->setLocation (tempX,  tempY); 

}//end  if  not  at  REST 
return; 

) //end  Animal : :move ( ) 


// - - - - 

//  Function:  Animal : :avoidCollision  () 

//  Return  Val:  void 
//  Parameter:  None 

//  Purpose:  keep  animals  from  occuping  the  same  grid  space 

// - - - - 

void  Animal ::  avoided  1  is  ion  ( ) 

( 

int  tempX  =  this->getX( ) , 
tempY  =  this->getY() ; 

double  randx  =  myRandO; 
double  randY  =  myRand ( ) ; 

if  (randx  <=  0.5) 
tempX — ; 
else 

tempx++ ; 

if  (randY  <=  0.5) 

tempY — ;  //  this  moves  the  animal  up  one  row 
else 

tempY++;  //  this  moves  the  animal  down  one  row 
if (tempX  <=  MIN_X) 

tempX  =  MIN_X  +  1; //bring  the  animal  back  one  unit 
if (tempX  >=  MAX_X) 

tempX  =  MAX_X-1; //bring  the  animal  back  one  unit 
if (tempY  <=  MIN_Y) 

tempY  =  MIN_Y  +1;  //move  the  animal  down  one  row 
if (tempY  >=  MAX_Y) 


tempY  =  MAX_Y  -  1;  //move  the  animal  up  one  row 
this->setLocation( tempX,  tempY); 
return; 

}//end  Animal : :avoidCollision() 


// - 

//  Function:  Animal :: mo veTo  () 

//  Return  Val:  void 
//  Parameter:  int  location 

//  Purpose:  returns  destination  for  animals  next  move 

// - 

void  Animal : :moveTo (int  1) 

{ 

int  tempX  =  1  %  MAX_X, 
tempY  =  1  /  MAX_X , 
thisTempX  =  this->getX<) , 
thisTempY  =  this->getYO; 

if (SpeedOfNextMove  ==  REGULAR) 

{ 

if ( (thisTempX  -  tempX)  >  0) 
thisTempX  -=  UNIT_HOVEMENT; 
else  if ( (thisTempX  -  tempX)  <  0) 
thisTempX  +=  UN I T_MO VEMENT ; 

if ( (thisTempY  -  tempY)  >  0) 
thisTempY-=  UNI T_MOVEMENT ; 
else  if ( (thisTempY  -  tempY)  <  0) 
thisTempY  +=  UN IT_MO VEMENT ; 

}//end  if 
else//RUN 

if ( (thisTempX  -  tempX)  >  0) 

thisTempX  -=  this->getMaxSpeed  0/2; 
else  if ( (thisTempX  -  tempX)  <  0) 

thisTempX  +=  this->getMaxSpeed() /2; 

if ( (thisTempY  -  tempY)  >  0) 

thi s TempY- =  this->getMaxSpeed() /2; 
else  if ( (thisTempY  -  tempY)  <  0) 

thisTempY  +=  this->getMaxSpeed{ ) /2; 

}//end  else 

if (thisTempX  <=  MIN_X) 

thisTempX  =  MIN_X  +  1; //bring  the  animal  back  one  unit 
if (thisTempX  >=  MAX_X) 

thisTempX  =  MAX_X-1;/ /bring  the  animal  back  one  unit 
if  (thisTempY  <=  MIN_Y) 

thisTempY  =  MIN_Y  +  1;  //move  the  animal  down  one  row 
if (thisTempY  >=  MAX_Y) 

thisTempY  -  MAX_Y  -  1;  //move  the  animal  up  one  row 
this->setLocation ( thisTempX,  thisTempY) ; 


return; 

} //end  Animal : :moveTo ( ) 


- - 

//  Function:  Animal : :moveFrom( ) 

//  Return  Val:  void 
//  Parameter:  int  location 

ft  Purpose:  returns  destination  for  animals  next  move 

//- - - - - 

void  Animal : :moveFrom( int  1) 

< 

int  tempX  =  1  %  MAX_X, 
tempY  =  1  /  MAX_X , 
thisTempX  =  this->getX( ) , 
thisTempY  =  this->getY(); 

if (speedOfNextMove  ==  REGULAR) 

{ 

if ( (thisTempX  -  tempX)  >  0) 
thisTempX  +=  UN IT_MOVEMENT ; 
else  if ( (thisTempX  -  tempX)  <  0) 
thisTempX  -=  UNIT_KOVEMENT; 
if ( (thisTempY  -  tempY)  >  0) 
thisTempY  ♦=  UN IT_MOVEMENT ; 
else  if ( (thisTempY  -  tempY)  <  0) 
thisTempY  -=  UN IT_MOVEMENT ; 

}//end  if 
else//RUN 
{ 

if ( (thisTempX  -  tempX)  >  0) 

thisTempX  +=  this->getMaxSpeed{) /2; 
else  if ( (thisTempX  -  tempX)  <  0) 

thisTempX  -=  this->getMaxSpeed()/2; 
if ( (thisTempY  -  tempY)  >  0) 

thisTempY  +=  this->getMaxSpeed() /2; 
else  if  ( (thisTempY  -  tempY)  <  0) 

thisTempY  -=  this->getMaxSpeed() /2; 

)//end  else 

if (thisTempX  <=  MIN_X) 

thisTempX  =  MIN_X  +  1; //bring  the  animal  back  one  unit 
if (thisTempX  >=  MAX_X) 

thisTempX  =  MAX_X-1; //bring  the  animal  back  one  unit 
if (thisTempY  <=  MIN_Y ) 

thisTempY  =  MIN_Y  +■  1;  //move  the  animal  down  one  row 
if (thisTempY  >=  MAX_Y) 

thisTempY  =  MAX_Y  -  1;  //move  the  animal  up  one  row 
this->setLocat ion (thisTempX,  thisTempY) ; 
return; 

) / /end  Animal : : moveFrom ( ) 


//Parameter: 

//  Function:  Animal :  :myRand  {) 

//Purpose:  evaluate  whether  two  like  animals  can  mate 

//  Return  Val:  double  -  a  pseudorandom  number  between  0.0  and  1.0 

//  Parameter:  none 

bool  Animal : :canKill (Animal  fcprey) 

//  Purpose:  return  random  number 

( 

return  false; 

double  Animal : rmyRand  () 

}//end  bool  Animal : :canKill (Animal  &prey) 

{ 

double  randomNumber ; 

randomNumber  =  rand () /double {RAND  MAX); 

return  randomNumber; 

//Function:  Animal : :getDistance { ) 

//Return  Val:  int  distance  between  two  animals 

)/ /end  Animal : :myRand ( } 

//Parameter:  animal 

//Purpose:  determine  distance  between  two  animals 

int  Animal: :getDistance (Animal  &animal) 

{ 

int  xSquare,  ySquare,  answer; 

//Function:  Animal : rcanMate  () 

//Return  Val:  true  /  false 

xSquare  =  (this->getX{)  -  animal .getXO )  *  (this->getX ()  - 

//Parameter:  potentialMate 

animal . getX ( ) ) ; 

//Purpose:  evaluate  whether  two  like  animals  can  mate 

ySquare  =  (this->getY  ()  -  animal  .getYO )  *  (this->getY()  - 

animal. getYO ) ; 

bool  Animal : :canMate( Animal  fcpotentialMate) 

{ 

bool  mateFlag  «  false; 

answer  =  (sqrt (xSquare  +  ySquare)); 

return  answer; 

if (this->getGender ( )  ==  MALE) 

) //end  Animal : :getDistance ( ) 

{ 

mateFlag  =  ( (MpotentialMate.isPregnantO  ) )  && 

(potentialMate. getAge (}  >=  MATE_AGE)  && 

(this->getAge( )  >=  MATE_AGE)  && 

//Function:  Animal: :distanceFromFood( ) 

(abs (this->getX()  -  potent ialMate.getX() )  <=■ 

//Return  Val:  int  between  animal  and  food 

MATE  DISTANCE)  && 

//Parameter:  int  location 

(abs  (this->getY()  -  potentialMate.getYO  )  <= 

//Purpose:  determine  distance  between  animal  and  food 

MATE  DISTANCE)); 

) 

int  Animal : :distanceFromFood( int  1) 

else 

( 

{ 

int  tempX  =  1  %  MAX_X, 

mateFlag  =  ( ( ! (this->isPregnant () ) )  && 

tempY  =  1  /  MAX_X, 

(potentialMate.getAgeO  >=  MATE^AGE)  && 

xSquare , 

(this->getAge ( )  >=  MAT E_ AGE)  && 

ySquare , 

(abs (this->getX{)  -  potent ialMate.getX () )  <= 

answer; 

MATE  DISTANCE)  && 

(abs  (this->getY()  -  potentialMate.getYO)  <= 

xSquare  =  (this->getX ()  -  tempX)  *  (this->getX()  -  tempX); 

MAT£_DISTANCE) ) ; 

) 

ySquare  =  (this->getY{)  -  tempY)  *  (this->getY()  -  tempY); 

answer  «  (sqrt (xSquare  +  ySquare)); 

return  mateFlag; 

return  answer; 

} //end  Animal : :distanceFromFood ( ) 

}//end  function  Animal: :canMate( Animal  ipotentialMate) 

//end  file  Animal. cpp 

//Function:  Animal : :canKi 11  () 

//Return  Val: 

//  EXECUTIVE  SUMMARY 

\ 

//File  Name:  Antelope. h 

//return  true  if  Antelope  dies  as  infant 

// 

bool  diesAsInfantO  ; 

//Authors:  Mark  A.  Boyd;  maboyd@bigfoot.com 

//  Todd  A.  Gagnon;  todd@gagnon.com 

//can  the  Antelope  mate 

// 

bool  canMate (Antelope  ^potentialMate) ; 

//Description:  Package  contains  definition  of  Antelope  class  and  its 

void  mate (Antelope  &mate); 

//  member  functions  to  work  in  a  larger  simulation 

// 

//are  the  Antelope  mate  eligible 

//March  1999,  Master  Thesis 

bool  mateEligible (Antelope  ScpotentialMate) ; 

//does  a  Antelope  know  Cheetahs  are  bad? 

ftifndef  __ANTEL0?E_H _ 

bool  getPredatorKnowledgeO  ; 

•define  _ ANTELOPE_H _ 

void  set Predator Knowledge (bool  pk); 

•include  ’animal. h" 

//print  Antelope  info 

class  Antelope:  public  Animal { 

void  printAntelopelnfoO  ; 

); 

private: 

ANTELOPE_DESIRED_ACTION  nextAction; 

int  idNum, 

//  INLINE  FUNCTIONS 

herds ize; 

bool  predator Knowledge; 

inline  int  Antelope: : get IdNum ( ) 

{ 

public:  '  • 

return  idNum;  \ 

} 

//Default  Constructor 

inline  ANTELOPE_DES I RED_ACT ION  Antelope : : getNextAction  ( ) 

Antelope ( ) ; 

{ 

//Newborn  Initialization  Constructor 

return  nextAction; 

> 

Antelope  (int  s,  int  gn,  int  1); 

//Default  Destructor  -  does  nothing  at  this  time 

inline  void  Antelope:  : setNextAction  ( ANTELO PE_DES I RED_ACT I ON  na) 

{ 

-Antelope ( ) ; 

nextAction  =  na; 

} 

//produce  a  newborn  Antelope  from  a  male/female  pair 

Antelope*  Antelope: :giveBirth( int  speedOne,  int  speedTwo, 

inline  bool  Antelope: : getPredatorKnowledgeO 

int  motherGeneration,  int  motherLocation) ; 

< 

//get  antelope  identification  number 

return  predatorKnowledge ; 

> 

int  getldNumO; 

//set  and  get  herd  size 

inline  void  Antelope:  :setPreda torKnowl edge  (bool  pk) 

{ 

int  getHerdSizeO; 

predatorKnowledge  *  pk; 

void  setHerdSize (int  hs) ; 

) 

//get  and  set  the  desired  next  action  for  the  antelope 

inline  int  Antelope: : getHerdSizeO 

ANTELOPE_DESI REDACTION  getNextAction () ; 

( 

void  setNextAction  (ANTELOPE_DESIRED_ACTION  na) ; 

return  herds ize; 

j 

//return  antelope  litter  size 

int  litterSizeO  ; 

5 

inline  void  Antelope: : setHerdSize (int  hs) 

9  ‘ 

herds ize  =  hs ; 


//end  file  Antelope. h 


//  EXECUTIVE  SUMMARY 
//File  Name:  Antelope. cpp 

// 

//Authors:  Mark  A.  Boyd;  maboyd0bigfoot.com 

//  Todd  A.  Gagnon;  todd@gagnon.com 

// 

//Description:  Package  contains  definition  of  Antelope  class  and  its 
//  member  functions  to  work  in  a  larger  simulation 


//March  1999,  Master  Thesis 

. . **** . ******* 


•include  <stdio.h> 
•include  <iostream.h> 
•include  <stdlib.h> 
•include  <ctime> 
•include  " Antelope. h" 


//  DEFINES  AND  FILE  SCOPE  CONSTANTS 

//* . . . **** . 


static  int  numAntelope  =  0; 


// - - 

//  Function:  Antelope: : Antelope () 

//  Return  Val:  None 
//  Parameter:  None 
//  Purpose:  Default  constructor 


Antelope: : Antelope  () 

: Animal ( ) ,  idNum (numAntelope++ ) ,  nextAction (A_NOTHING ) , 
herdSize(l) 


if  (Animal :  :myRand  { )  <  PREDATOR_KNOWLEDGE ) 
predatorKnowledge  =  true; 
else 

predatorKnowledge  =  false; 

)//end  Antelope: : Antelope 0 


//  Function:  Antelope: :  An  tel  ope  (int  s,  int  gn,  int  x,  int  y) 

//  Return  Val :  None 

//  Parameter:  Speed,  generation,  and  XY  position 

//  Purpose:  Initialization  constructor  for  newborn  Antelopes 


Antelope: :Antelope( int  s,  int  gn,  int  1) 

:  Animal  (s,  gn,  1),  idNum (numAntelope++ ) ,  nextAction  (A_NOTHING) , 
herdSize(l) 

{ 

if (Animal ::myRand()  <  PREDATOR_KNOWLEDGE ) 
predatorKnowledge  »  true; 
else 

predatorKnowledge  *  false ; 


}//end  Antelope: :Antelope (int  s,  int  x,  int  y) 


//  Function:  Antelope: : -Antelope () 
//  Return  Val:  None 
//  Parameter:  None 
//  Purpose:  Default  destructor 


Antelope: :-Antel ope  {) 

( 

//do  nothing  at  this  point 
}//end  Antelope:  .--Antelope ( ) 


/  /Function :  Antelope : :  giveBir th  ( ) 

//Return  Val:  Antelope 
//Parameter:  male  speed,  female  speed 
//Purpose:  make  a  new  Antelope 


Antelope*  Antelope: :giveBirth( int  speedOne,  int  speedTwo, 

int  motherGeneration,  int  motherLocation) 

{ 

int  newSpeed, 

nextGeneration  =  (motherGeneration  +  1); 

Antelope  *newBorn; 

if (Animal : :myRand()  <  .5) 
newSpeed  =  speedOne; 
else 

newSpeed  =  speedTwo; 

newBom  =  new  Antelope (newSpeed,  nextGeneration,  motherLocation+1) ; 

'  *ifdef  SPEED_COUT 

cout  «  ’ANTELOPE"  «  "  "  «  ’speedOne:  ’  «  speedOne  <<  • 

«  "speedTwo:  "  «  speedTwo  «  •  ’  «  ’newborn  speed 

«  newSpeed  «  endl; 

•endif 

return  newBom; 


)//end  animal: :mate() 


// - 

//Function:  Antelope:  :mate  () 

//Return  Val:  true  /  false 
//Parameter:  potentialMate 

//Purpose:  evaluate  whether  two  like  animals  can  mate 

// - 

void  Antelope: : mate  (Antelope  &mate) 

{ 

if ( this->getGender ( )  ==  MALE) 

( 

mate. setPregnant (true) ; 

mate.pregPtr->partnerId  =  this->getIdNum() ; 
mate.pregPtr->maleSpeed  =  this->getMaxSpeed() ; 
mate.pregPtr->gestationTime  =  0; 

} 

else 

( 

this->setPregnant (true) ; 

this->pregPtr->partnerId  =  ma  te.  get  IdNum  ()  ; 
this->pregPtr->maleSpeed  =  mate  .getMaxSpeedO  ? 
this->pregPtr->gestationTime  =  0; 

) 

return; 

)//end  function  Antelope : :mate () 


// - 

//  Function:  void  Antelope:  :printAntelopeInfo () 
//  Return  Val:  void 

//  Parameter:  none 

//  Purpose:  Print  Antelope  information 

// - 

void  Antelope : :printAntelopeInfo ( ) 

{ 

if (getGender ( )  «  'M' ) 

( 

cout  «"  Male  Antelope  ’  «  idNum; 

} 

else 

( 

cout  «  "Female  Antelope  "  «  idNum; 

} 

cout  «*  =>  spd  =  ■  «  getMaxSpeedO  . 

«■  gndr  =  ’  «  getGender  () 

«"  age  =  ’  «  getAgeO 

«’  x  =  ’  «  getXO 
«’  y  =  ’  «  getYO 
«  endl; 
re turn ; 

}//end  Antelope  Antelope:  iprintAntelopelnfo  () 


// - 

//  Function:  int  Antelope :: lit terSize ( ) 

//  Return  Val:  int  number  in  litter 
//  Parameter:  none 

//  Purpose:  return  a  random  number  of  antelope  in  a  litter 

// . . 

int  Antelope:  :litterSize  () 

( 

int  litter  =  1; 

if  (Animal :  imyRandO  >«  0.9) 
litter  =  2; 

return  litter; 

)//end  Antelope: : lit terSize () 


// - - - - - - - 

//  Function:  bool  Antelope: idiesAs Infant 0 
//  Return  Val:  true  for  dies;  false  for  lives 
//  Parameter:  none 

//  Purpose:  return  whether  infant  dies  or  not 

// - 

bool  Antelope: :diesAsInf ant () 

( 

double  randNum  =  Animal: :myRand( ) ; 
return  (randNum  <  ANT ELO PE_MORTALI TY_RAT E )  ; 
}//end  Antelope:  mortality () 


//- . . 

//  Function:  bool  Antelope: :canMate 0 
//  Return  Val:  true  for  yes;  false  for  no 
//  Parameter:  potential  mate 

//  Purpose:  return  whether  Antelope  can  mate  or  not 

// - - - - - - 

bool  Antelope: :canMate (Antelope  &potentialMate) 

{ 

bool  mateFlag  =  false; 

if ( (this->getGender 0  “MALE) 

(potentialMate. getGender ()  ==  FEMALE) ) 

{ 

mateFlag  »  (( 3  (potentialMate.  isPregnantO  ) )  && 

(this->getNextAction{ )  ==  A_MATE)  &&. 
(potentialMate . getNextAction ( )  ==  A_MATE)  && 
(potentialMate. getAge ( )  >=  MATE_AGE)  && 
(this->getAge()  >-  MATE_AGE)  && 

(abs (this->getx()  -  potentialMate.getx () )  <= 
MATE_DI STANCE )  && 
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( abs { this ->ge t  Y ( )  -potentialMate.getYO)  <= 
MATE_DI STANCE ) ) ; 

) 

else  if ( (this->getGender {)  ==  FEMALE)  && 

(potent ialMate.getGender ()  ==  MALE)) 

{ 

mateFlag  =  ( ( ! ( this -> is Pregnant ( ) ) )  && 

(this->getNextAction()  ==  A_MATE)  && 
(potentialMate  .getNextActionO  ==  A_MATE)  && 
(potentialMate .getAge ( )  >=  MATE_AGE)  && 
(this->getAge ( )  >=  MAT E_ AGE)  && 

(abs (this->getx()  -  potentialMate.getXO )  <= 
MATE_DI STANCE)  && 

(abs ( this ->getY()  -  potentialMate.getYO)  <= 
MATE_DI STANCE) ) ; 


//  EXECUTIVE  SUMMARY 

Cheetah. h 

Mark  A.  Boyd;  maboyd@bigfoot.com 
Todd  A.  Gagnon;  todd@gagnon.com 

Package  contains  definition  of  Cheetah  class  and  its 
member  functions  to  work  in  a  larger  simulation 

// 

//March  1999,  Master  Thesis 

,/******♦ . ***** . * . . . * . * . ******1 

♦ifndef  _ CHEETAH_H _ 

♦define  _ CHEETAH_H _ 

♦include  "animal. h" 


//File  Name: 

// 

//Authors: 

// 

// 

//Description: 

// 


return  mateFlag; 

} / /Antelope : : canMate (Antelope  fcpotentialMate) 


class  Cheetah:  public  Animal { 
private: 


//  Function:  bool  Antelope : :mateEligible ( ) 

//  Return  Val:  potential  mate 
//  Parameter:  true  for  yes;  false  for  no 

//  Purpose:  return  whether  Antelope  is  eligible  to  mate 


bool  Antelope: :mateEligible (Antelope  ScpotentialMate) 

{ 

bool  mateEligibleFlag  =  false; 

if ( (this->getGender 0  ==  MALE)  && 

(potentialMate.  getGenderO  ==  FEMALE)) 

{ 

mateEligibleFlag  =  ( ! (potentialMate. isPregnantO )  && 
(potentialMate. is InSeason 0 )  && 
(potentialMate.getAgeO  >=  MAT E_ AGE)  && 
(this->getAge ( )  >=  MATE_AGE ) ) ; 

> 

else  if ( (this->getGender ( )  ==  FEMALE)  && 

(potentialMate.  getGenderO  ==  MALE)) 

{ 

mateEligibleFlag  =  { > (this->isPregnant 0 )  && 

( this->isInSeason ( ) )  && 

(potentialMate .getAge O  >=  MATE_AGS)  && 
(this->getAge ( )  >=  MATE_AGE) ) ; 

) 

return  mateEligibleFlag; 

}//end  Antelope: :mateEligible 


CHE ET AK_DES I RE D_ ACT ION  nextActio n; 
int  idNum; 

public: 

//Default  Constructor 
Cheetah () ; 

//Newborn  initialization  constructor 
Cheetah  (int  s,  int  gg,  int  1); 

//Default  Destructor  -  does  nothing  at  this  time 
-Cheetah ( ) ; 

//produce  a  newborn  Cheetah  from  a  male/female  pair 
Cheetah*  Cheetah: :giveBirth (int  speedOne,  int  speedTwo 
int  motherGeneration,  int  motherLocation) ; 

//get  Cheetah  identification  number 
int  getldNumO; 

//return  Cheetah  litter  size 
int  litterSizeO  ; 

//get  and  set  the  desired  next  action  for  the  antelope 

CHE  ET AH_DES I RED_ ACT ION  getNextAction ( ) ; 

void  setNextAction  (CHEETAH_DESIRED_ACTION  na); 

//return  whether  or  not  the  Cheetah  dies  in  infancy 
bool  diesAsInf ant ( ) ; 


//end  file  Antelope. cpp 


//check  to  see  if  cheetah  can  kill  Antelope 
bool  canKill (Animal  tprey) ; 


//* 


bool  canMate (Cheetah  ^potentialMate) ; 
void  mate(Cheetah  &mate); 


// 

// 


//can  the  Cheetah  mate 


DEFINES  AND  FILE  SCOPE  CONSTANTS 


//are  the  Cheetahs  mate  eligible 

bool  mateEligible (Cheetah  ftpotentialMate) ; 

//print  Cheetah  info 
void  printCheetahlnfo () ; 

}  ; 


. . * . . . ******** . 

//  INLINE  FUNCTIONS 

//*************.**********♦************** . ******** 

inline  int  Cheetah: : getldNumO 
{ 

return  idNum; 

) 

inline  CHEETAH_DESIRED_ACTION  Cheetah: : getNextActionO 
( 

return  nextAction; 

) 


static  int  numCheetah  =  0; 

// - 

//  Function:  Cheetah: : Cheetah {)  ' 

//  Return  Val:  None 
//  Parameter:  None 
//  Purpose:  Default  constructor 

// - - - 

Cheetah: : Cheetah  () 

:Animal 0 ,  idNum (numCheetah++) ,  nextAction (C_NOTHING) 

{ 

int  speed  =  ( rand {) /double (RAND_MAX) ) *10; ' 
if  (speed  <  5) 

{ 

speed  +=  5; 

} 

this->setMaxSpeed (speed  +  CHEETAH_SPEED_ADVANTAGE) ; 
)//end  Cheetah: : Cheetah () 


inline  void  Cheetah: : setNextAction  ( CHEETAH_DES I RED_ACTI ON  na) 
{ 

nextAction  =  na; 

} 

♦endif 

//end  file  Cheetah. h 


. . ************ 

//  EXECUTIVE  SUMMARY 
//File  Name:  Cheetah. cpp 

// 

//Authors: 

// 

// 

//Description : 

// 

// 

//March  1999,  Master  Thesis 

// . . . 


Mark  A.  Boyd;  maboyd@bigfoot.com 
Todd  A.  Gagnon;  todd@gagnon.com 

Package  contains  definition  of  Cheetah  class  and  its 
member  functions  to  work  in  a  larger  simulation 


♦include  <stdio.h> 
♦include  <iostream.h> 
♦include  <stdlib.h> 
♦include  <ctime> 
♦include  "Cheetah. h" 


//Function:  Cheetah: : Cheetah (int  s,  int  gn,  int  1) 

U  Return  Val:  None 

//  Parameter:  Speed,  generation,  and  XY  position 

//  Purpose:  Initialization  constructor  for  newborn  Cheetahs 

u - - - - - 

Cheetah: : Cheetah (int  s,  int  gn,  int  1) 

:  Animal  (s,  gn,  1),  idNum (numCheetah++) ,  nextAction (C_NOTHING) 
{ 

}//end  Cheetah: : Cheetah (int  s,  int  gn,  int  1) 


// - 

//  Function:  Cheetah :: -Cheetah ( ) 

//  Return  Val:  None 
//  Parameter:  None 
//  Purpose:  Default  destructor 

// - - - - 

Cheetah : : -Chee  tah  ( ) 

{ 

//do  nothing  at  this  point 
}//e nd  Cheetah: : -Cheetah () 


// - - - 

//Function:  Cheetah: :mate  0 

//Return  Val:  Cheetah 

//Parameter:  speed  of  two  cheetah,  female  generation  and  location 
//Purpose:  create  new  cheetah 


It 


l 


{ 


// — - - - - 

Cheetah*  Cheetah: igiveBirth (in t  speedOne,  int  speedTwo, 

int  motherGeneration,  int  motherLocation) 

int  newSpeed, 

nextGeneration  =  (motherGeneration  *  1); 

Cheetah  *newBom; 

if (Animal: :myRand()  <  .5) 
newSpeed  =  speedOne; 
else 

newSpeed  =  speedTwo; 

newBom  =  new  Cheetah  (newSpeed,  nextGeneration,  motherLocation  +  1); 
return  newBom; 


if (getGender ( )  ==  MALE) 

( 

cout  «"  Male  Cheetah  “  «  idNum; 

} 

else 

{ 

cout  «  "Female  Cheetah  "  «  idNum; 

) 

cout  «"  =>  spd  =  "  «  getMaxSpeedO 

«"  gndr  =  “  «  getGender  () 
«*  age  =  "  «  getAget) 

«"  x  =  •  «  getx ( ) 

«"  y  ~  "  «  getYO 
«endl ; 

return; 


)  / /end  animal : :mate ( ) 


)//end  void  Cheetah: :printCheetah!nfo() 


// - - - 

//Function:  Cheetah: :mate  () 

//Return  Val:  none 
//Parameter:  mate 
//Purpose:  mate  the  cheetah 

// . . . . 

void  Cheetah: :mate (Cheetah  tmate) 

{ 

if ( this->getGender ( )  «  MALE) 

{ 

mate.setPregnant(true) ; 

mate.pregPtr->partnerId  =  this->get IdNum ( ) ; 
mate . pregPtr->maleSpeed  =  this->getMaxSpeed{); 
mate ,pregPtr->gestationTime  =  0; 

) 

else 

{ 

this->setPregnant (true) ; 
this->pregPtr->partnerXd  =  mate.getldNumO  ; 
this->pregPtr->maleSpeed  =  mate.getMaxSpeedO  ;• 
this->pregPtr->gestationTime  =  0; 

} 

return; 

)//end  function  Cheetah: :mate() 


// - - 

//  Function:  int  Cheetach: :litterSize() 

//  Return  Val:  int  number  in  litter 
//  Parameter:  none 

//  Purpose:  return  a  random  number  of  Cheetah  in  a  litter 

// . . - - - 

int  Cheetah: :litterSize() 

{ 

int  litter  =1; 

double  randNum  =  Animal : :myRand( ) ; 

if (randNum  <=  0.05) 
litter  =  1; 

else  if ((randNum  >  0.05)  &&  (randNum  <=  0.15)) 
litter  =  2; 

else  if ((randNum  >  0.15)  &&  (randNum  <=  0.3)) 
litter  =  3; 

else  if ((randNum  >  0.3)  &&  (randNum  <=  0.7)) 
litter  =  4; 

else  if ((randNum  >  0.7)  &&  (randNum  <=  0.85)) 
litter  =  5; 

else  if ((randNum  >  0.85)  &&  (randNum  <=  0.95)) 
litter  =  6; 

else  //if  randNum  >  .95 
litter  =  7; 


// - - - 

//  Function:  void  Cheetah: :printCheetahInfo ( ) 
//  Return  Val:  void 
//  Parameter:  none 

//  Purpose:  Print  Cheetah  information 

- - 

void  Cheetah : :printCheetahInfo ( ) 


return  litter; 

}//end  Antelope: : lit terSizeO 


// - - - - 

//  Function:  bool  Cheetach: :diesAsInfant () 


//  Return  Val:  number  of  cheetah  that  die 
//  Parameter:  none 

//  Purpose:  return  whether  infant  dies  or  not 

// - 

bool  Cheetah: :diesAsInf ant ( ) 

{ 

double  randNum  =  Animal: :myRandf) ; 
return  (randNum  <  CHEETAH_MORTALITY_RATE } ; 
)//end  Cheetah:  mortality  0 


- - 

//Function:  Cheetah: :canKi 11  () 

//Return  Val:  true  if  yes;  false  if  no 
//Parameter:  potential  prey 

//Purpose:  evaluate  whether  two  like  animals  can  kill 

// - 

bool  Cheetah: :canKill (Animal  &prey) 


} 


(abs (this->getY()  -  potentialMate. getYO  ) 
MAT£_DI STANCE ) } ; 


else  if ( ( this~>getGender ( )  ==  FEMALE)  && 
(potentialMate. getGender ()  ==  MALE) ) 


mateFlag  =  ( ( ! (this->isPregnant ( ) ) )  && 

(this->getNextAction()  ==  C_MATE)  && 
(potent ialMate.getNextAct ion ()  ==  C_MATE) 
(potentialMate. getAget)  >=  MATE_AGE)  && 
(this->getAge()  >=  MATE_AGE)  && 

(abs  (this->getX()  -  potentialMate. getXO  ) 
MATE_DI STANCE )  && 

(abs (this->getY()  -  potentialMate. getY() ) 
MATE_DISTANCE) ) ; 


return  mateFlag; 

)/ /Cheetah: :canMate (Cheetah  ApotentialMate) 


{ 


bool  killFlag  =  false; 

if  (/ /  (this->getMaxSpeed{)  >  prey.getMaxSpeedO )  && 

(abs (this->getX ( )  -  prey. getXO)  <=  KILL_RADIUS)  &&. 
(abs ( this ->getY()  -  prey. getYO)  <=  KILL_RADIUS) ) 
if (Animal: :myRand()  >  .5) 
killFlag  =  true; 
else 

killFlag  *  false; 


// - - - 

//  Function:  bool  Cheetah: : mated igible  { ) 

//  Return  Val:  true  if  yes;  false  if  no 
//  Parameter:  potential  mate 

//  Purpose:  return  whether  Cheetah  is  eligible  to  mate 


bool  Cheetah: :mateEligible (Cheetah  ipotentialMate) 


bool  mateEligibleFlag  =  false; 


&& 


return  killFlag; 

) //Cheetah: :canKill (Animal  &prey) 


- - 

//  Function:  bool  Cheetah: :canMate( ) 

//  Return  Val:  true  if  yes;  false  if  no 
//  Parameter:  potential  mate 

//  Purpose:  return  whether  Cheetah  can  mate  or  not 

- - 

bool  Cheetah: :canMate( Cheetah  tpotentialMate) 

bool  mateFlag  =  false; 

if ( (this->getGender ()  ==  MALE)  && 

(potentialMate. getGender ()  ==  FEMALE) ) 

( 

mateFlag  =  ( ( l (potentialMate . isPregnant  0 ) )  && 

( this->getNextAction ( )  ==  C_MATE)  && 

(potent  ialMate.getNextAct  ion  ()  ==  C_MATE)  && 
(potentialMate. getAgeO  >=  MATE_AGE )  && 
(this->getAge()  >=  MATE_AGE)  && 

(abs (this->getx()  -  potentialMate .getx () )  <= 
MATE_DISTANCE)  && 


if ( (this->getGender ()  ==  MALE)  && 

^  (potenti alMate. getGender ()  ==  FEMALE)) 

mateEligibleFlag  =  (< I (potentialMate. isPregnant ()) )  && 
(potentialMate . isInSeason ( ) )  && 
(potentialMate. getAgeO  >=  MAT£_AGE)  && 
}  (this->getAge()  >=  MATE. AGE) )  ,- 

else  if ( (this->getGender ()  ==  FEMALE)  && 

(potentialMate . getGender ( )  ==  MALE) ) 

mateEligibleFlag  =  ( !  (this->isPregnant () )  && 
(this->isInSeason{) )  && 

(potentialMate.getAge ( )  >=  MATE_AGE)  && 

( this->getAge ( )  >=  MATE_AGE) ) ; 


return  mateEligibleFlag; 

) / /Cheetah: :mateEligible (Cheetah  &potentialMate) 
//end  file  Cheetah. cpp 


. . *****, 

//  EXECUTIVE  SUMMARY 


//File  Name:  StdAfx.h 

// 

//Authors:  Mark  A.  Boyd;  maboyd8bigfoot.com 

//  Todd  A.  Gagnon;  todd@gagnon.com 

// 

//Description:  Package  contains  standard  Windows  MFC  settings  and 
//  simulation  globals.  include  file  for  standard  system 

//  include  files,  or  project  specific  include  files  that  are 

//  used  frequently,  but  are  changed  infrequently 

// 

//March  1999,  Master  Thesis 

,/********* . * . ******* . * . ************* . . 

•if  I defined (AFX.STDAFX.H _ 99A28497.8631.11D2.889B.0OOOF8O92715 _ INCLUDED.) 

•define  AFX_STDAFX_K _ 9 9A2 8 4 9 7_8 631_11D2_88 9B_0 000F809271 5 _ INCLUDED. 

♦if  .MSC.VER  >=  1000 
♦pragma  once 

♦endif  //  .MSC.VER  >=  1000 

♦define  VC.EXTRALEAN  //  Exclude  rarely-used  stuff  from  Windows  headers 

•  include  <afxwin.h>  //  MFC  core  and  standard  components 

•include  <afxext.h>  //  MFC  extensions 

♦include  <afxdisp.h>  //  MFC  OLE  automation  classes 

•ifndef  .AFX.NO.AFXCMN.SUPPORT 

•include  <afxcmn.h>  //  MFC  support  for  Windows  Common  Controls 

♦endif  //  _AFX.NO_JUPXCMN_SUPPORT 


//  Global  Constants  used  to  initialize  and/or  scale  the  simulation 
//*********************** . ***** . ****************************** 

enum  MOVE  SPEED  {REST,  REGULAR,  RUN}; 

enum  DEATH. INDICATOR  { INFANT.MORTALITY,  OLD.AGE,  PREDATOR,  STARVATION, 
NOT.DEAD} ; 

enum  ANTELOPE_DESIRED_ACTION  {A.NOTHING,  A_MATE ,  HERD,  FLEE,  FEED}; 
enum  CHEETAH.DES I RE D_ ACT ION  {C.NOTHING,  C.MATE,  AVOID,  CHASE}; 

•define  HIGH.NUM 


•ifdef  HIGH.NUM 

•define  CKEETAH.KILLS.COUT 

•define  SPEED.COUT 

♦define  MAX.TIME  10000  //maximum  time  steps 

♦define  NUM ^ANTELOPE  100  //#  antelope  to  create 

•define  NUM.CHEETAH  5  //♦  cheetah  to  create 

•define  MIN_X  0 

//X  coordinates  range  from  0  to  MAX_X 

•define  MAX.X  640 

//Y  coordinates  range  from  0  to  MAX_Y#def ine  MIN_Y 


•define  MAX_Y 
•define  ANIMAL  _AGE 
•define  MAX.ANTELOPE.AGE 
•define  MAX_CHEETAH_AGE 


480 

1825 

2000 

3650  / /8  -  12  years  -  10  years 


•define  MALE 
•define  FEMALE 
•define  KILL.RADIUS 
•define  MATE.DISTANCE 
•define  MATE.AGE 
•define  NEWBORN.AGE 
•define  CHEETAH.SPEED.ADVANTAGE 
•define  ANTEL0PE.GESTATI0N.PERI0D 
•define  CHEETAH_GESTATION_PERIOD 
•define  ANTELOPE_WAIT_TO_MATE_TIME 
•define  CHEETAH.WAI T.TO.MAT E_T I ME 
•define  CHEETAH.INFANT^AGE  ' 

•define  ANTELOPE_INFANT_AGE 
•define  CHEETAH.MORTAL ITY.RATE 
•define  ANTELOPE _MORTALITY_RATE 
•define  STOP.SPEED 
•define  CHEETAH.CRUISE.SPEED 
•define  ANT ELOPE.CRUISE.S PEED 
•define  ANT ELO  PE.REST.SENS I NG.RANGE 
•define  ANTELOPE.REGULAR.SENSING.RANGE 
•define  ANTELOPE.RUN.SENS I NG.RANGE 
•define  CHEETAH.REST.SENSING.RANGE 
•define  CHEETAH.REGULAR.SENSING.RANGE 
♦define  CHEETAH.RUN.SENS  ING.RANGE 
•define  CHEETAH.AVOID.RANGE 
•define  CHE ETAH.STARVATI ON.LEVEL 
♦define  PREDATOR.KNOWLEDGE 
♦define  UNITJ40VEMENT 
♦define  FAST.SIMULATION.SPEED 
•define  MEDIUM_SIMULATION_SPEED 
•define  SLOW.SIMULATION.SPEED 
•define  FRI END.STANDOF F.Dl STANCE 
•define  CHEETAH_ENERGY_BOOST 
•define  CHEETAH.HI GH.ENERGY.LEVEL 
•define  CHEETAH_STOP_HUNTING_LEVEL 
•define  CHEETAH_RESUME_HUNT I NG.LEVEL 
•define  CHEETAH.LOW.ENERGY. LEVEL 
•define  CHEETAH_REST.ENERGY.GAIN 
•define  CHEETAH.REGULAR.ENERGY.PENALTY 
•define  CHE ETAH.RUN.ENERGY.PENALTY 
•define  ANTELOPE_START_IN_SEASON 
•define  ANTELOPE_STOP_IN_SEASON 
♦define  CHEETAH. START. I N_S EASON 
♦define  CHEETAH.STOP.IN.SEASON 
•define  FOOD.RANGE 

const  int  FOOD_LOCATION[]={44870,  45370, 
198620,  198840,  262470,  262970}; 


660  //20-23  months->22  months 

1  //I  day  old 
1 

171  / /171  day  gestation  period 

95  //95  day  gestation  period 

365  //wait  for  a  litter  to  lve 
700  //wait  for  a  litter  to  lve 
700  //days  until  mom  moves  out 
365  //days  until  mom  moves  out 
0.90//90%  die  in  first  2  years 
0.3//30%  die  in  first  2  years 
0  //stop  speed  of  any  animal 
3  //medium  speed  of  Cheetah 

3  //medium  speed  of  Antelope 
50 

30 

15 

175 

175 

100 

150 

2 

0.5  //%  know  predator 

1  //how  many  pixels  to  move 
50 
250 
500 
15 
400 
800 
200 
600 
0 

4 
4 

10 

15 

60 

30 

140 

25 

109020,  109240,  153670,  154170, 


//{ {AFX.INSERT.LOCATION} } 

//  Microsoft  Developer  Studio  will  insert  additional  declarations 
//  immediately  before  the  previous  line. 


//**•*** . . . ***.********.*****.****************************1 

//  EXECUTIVE  SUMMARY 
//File  Name:  AgentGUIView.h 

// 

//Authors:  Mark  A.  Boyd;  maboyd@bigfoot.com 

//  Todd  A.  Gagnon;  todd@gagnon.com 

// 

//Description:  interface  of  the  CAgentGUIView  class 
// 

//March  1999,  Master  Thesis 

//** . **************************** . ******** . ******, 

•if  {defined  (AFX_AGENTGUIVTEW_H_99A2849D_8631_llD2_889B_O00OF8092715 
_ INCLUDED.) 

•define  AFX_AGENTGUIVIEW_H_99A2849D_8631_11D2_889B„0000F8092715 
_ INCLUDED. 

•if  .MSC.VER  >=  1000 
♦pragma  once 
•endi f 

class  CAgentGUIView  :  public  CView 

{ 

protected:  //  create  from  serialization  only 
CAgentGUIView 0 ; 

DECLARE.DYNCREATE  (CAgentGUIView) 

//  Attributes 
public: 

CAgentGUIDoc*  GetDocument ( ) ; 

//  Operations 
public: 

public: 

virtual  void  OnDraw(CDC*  pDC) ;  //  overridden  to  draw  this  view 

virtual  BOOL  PreCr eateWindow ( CREATESTRUCT&  cs); 

protected: 

virtual  BOOL  OnPreparePrinting(CPrintInfo*  plnfo) ; 
virtual  void  OnBeginPrinting(CDC*  pDC,  CPrintlnfo*  plnfo); 
virtual  void  OnEndPrinting (CDC*  pDC,  CPrintlnfo*  plnfo); 

//  Implementation 
public: 

virtual  -CAgentGUIView () ; 

♦ifdef  .DEBUG 

virtual  void  AssertValidO  const; 
virtual  void  Dump(CDumpContext&  dc)  const; 

♦endif 

protected: 


CPen  pPenMaleAntelopel, 
pPenMaleAntelope2 , 
pPenMaleAntelope3 , 
pPenMaleAntelope4 , 
pPenMaleAntelopeS , 
pPenMaleCheetah, 
pPenFema 1 eChee  tah , 
pPenFood; 

CBrush  brushMaleAntelopel , 
brushMaleAntelope2 , 
brushMaleAntelope3 , 
brushMaleAntelope4 , 
brushMaleAntelopeS , 
bru  shMa 1 eChe e  t ah , 
brushFemaleCheetah ; 

bool  simulationOn, 
statisticsOn; 

void  printAntelopeStatistics  (CDC  *pDC) ; 
void  printCheetahStatistics  (CDC  *pDC) ; 

void  updateStatusBar (int  numMaleAntelope,  int  numFemaleAntelope, 
int  antelopeGenerations,  int  numMaleCheetah, 
int  numFemal eChee tah,  int  cheetahGenerations, 
int  simTime) ; 

void  integerToString(int  num,  CString  fcnumbers); 

//  Generated  message  map  functions 
pro tected: 

afx.msg  void  OnTimer(UINT  nIDEvent) ; 

afx.msg  void  OnRunSimulation{ ) ; 

afx.msg  void  OnStopSimulationO  ; 

afx.msg  void  OnStepSimulationO  ; 

afx.msg  void  OnToggleO;  1 

afx.msg  void  OnSpeedFast {) ; 

afx.msg  void  OnSpeedMedium ( ) ; 

afx_msg  void  OnSpeedSlow ( ) ; 

afx.msg  void  OnUpdateRunSimulation(CCmdUI*  pCmdUI); 
afx.msg  void  OnUpdateStopSimulation (CCmdUl*  pCmdUI); 
afxjnsg  void  OnUpdateSpeedFast (CCmdUl*  pCmdUI); 
afx.msg  void  OnUpdateSpeedMedium (CCmdUl*  pCmdUI); 
afx.msg  void  OnUpdateSpeedSlow (CCmdUl*  pCmdUI); 
afx.msg  void  OnLButtonDown (UINT  nFlags,  CPoint  point); 
afxjnsg  void  OnLButtonUp(UINT  nFlags,  CPoint  point); 

DECLARE.MES  SAGE.MAP ( ) 

} ; 

♦ifndef  .DEBUG  //  debug  version  in  AgentGUIView.cpp 
inline  CAgentGUIDoc*  CAgentGUIView: :GetDocument() 

{  return  (CAgentGUIDoc* ) m_pDocument ;  } 

♦endif 

♦endif 


int  loopSpeed, 

simulationTime; 


3 


statisticsOn( false) ,  simulationTime (0) 


//  EXECUTIVE  SUMMARY 
//File  Name:  AgentGUIView.cpp 

// 

//Authors: 

// 

// 

//Description: 

// 

//March  1999,  Master  Thesis 

. . ♦******.*».**♦ 


Mark  A.  Boyd;  maboyd0bigfoot.com 
Todd  A.  Gagnon;  todd@gagnon.com 

implementation  of  the  CAgentGUIView  class 


♦include  ■stdafx.h“ 
♦include  "AgentGUl .h* 
♦include  "MainFrm.h" 


brushMaleAntelopel -CreateSolidBrush (RGB  (200,  0,  0)); 
pPenMaleAntelopel. CreatePen (PS_S0LID,  1,  RGB  (200,  0,  0)); 

brushMaleAntelope2. CreateSolidBrush (RGB  (200,  200,  0)); 
pPenMaleAntelope2 .CreatePen (PS_SOLID,  1,  RGB  (200,  200,  0)); 

brushMaleAntelope3. CreateSolidBrush (RGB  (0,  140,  0)); 
pPenMaleAntelope3 .CreatePen (PS_S0LID,  1,  RGB  (0,  140,  0) ) ; 

brushMaleAntelope4. CreateSolidBrush (RGB  (0,  140,  200)); 
pPenMaleAntelope4 .CreatePen (PS_S0LID,  1,  RGB  (0,  140,  200)); 

brushMaleAntelope5. CreateSolidBrush (RGB  (0,  0,  255)); 
pPenMaleAntelopeS. CreatePen (PS_S0LID,  1,  RGB  (0,  0,  255)); 


♦include  ‘AgentGUIDoc.h* 
♦include  'AgentGUIView.h" 


brushMaleCheetah. CreateSolidBrush (RGB  (0,  0,  0)); 
pPenMal eChee t ah . CreatePen ( PS_S0LID ,  1,  RGB  (0,  0,  0)); 


♦ifdef  _ DEBUG 
♦define  new  DEBUG_NEW 
♦undef  THIS_FILE 

static  char  THIS_FILE{]  =  _ FILE _ ; 

♦endif 

static  int  numAntelope  =  0; 
static  int  numCheetah  *  0; 

IMPLEMENT_DYNCREATE  {CAgentGUIView,  CView) 

BEGIN_MESSAG£_MAP  (CAgentGUIView,  CView) 

ON_WM_TI ME R ( ) 

ON_COMMAND ( ID_RUN_SIMULATION,  OnRunSimulation) 

ON_COMMAND ( ID_STOP_SIMULATION ,  OnS topSimul ation) 

ON_COMMAND { ID_STEP_SIMULATION ,  OnStepSimulation) 
ON_COMMAND(SIMULATION_TOGGLE,  OnToggle) 

ON_COMMAND (SET_SPEED_FAST,  OnSpeedFast) 

ON_COMKAND (SET_SPEED_MEDIUM,  OnSpeedMedium) 

ON_COMKAND  ( SET_S PE ED_SLOW ,  OnSpeedSlow) 

ON_UPDATE_COMMAND_UI ( ID_RUN_SIHULATION,  OnUpdateRunSimulation ) 
ON_UPDATE_COMMAND_UI ( ID_STOP_SIMULATION,  OnUpdateStopSimulation) 
ON_UPDATE_COMMAND_UI ( SET_SPEED_FAST ,  OnUpdateSpeedFast ) 
ON_UPDATE_COMMAND_UI (SET_SP£ED_MEDIUM,  OnUpdateSpeedMedium) 
0N_UPDATE_COKMAND_UI (SET_SPEED_SLOW,  OnUpdateSpeedSlow) 
ON_WM_LBUTTONDOWN { ) 

0N_C0MMAND (SIMULATION_STEP,  OnStepSimulation) 

ON_WM_LBUTTONUP ( ) 

ON_COMMAND(ID_FILE_PRINT,  CView: :OnFilePrint) 

ON_COMMAND ( I D_F I LE_PRI NT_D IRECT ,  CView: :OnFilePrint) 
ON_COMMAND(ID_FILE_PRINT_PREVIEW,  CView: :OnFilePrintPreview) 
END_MESSAGE_MAP() 

//  CAgentGUIView  construction/destruction 
CAgentGUIView:  :CAgentGUIView( ) 

: loopSpeed (MEDIUM_SIKULATION_SPEED) ,  simulationOn (false) , 


numFemaleCheetah  =  0, 
ante lopeGenerat ion  =  0, 
cheetahGeneration  s  0; 

if  (statisticsOn) 

( 

printAntelopeStatistics  (pDC) ; 
printCheetahStatistics  (pDC) ; 


pDC->SelectObject (fcpPenFood) ; 

for (int  ix  =  0;  ix  <  10;  ix++) 

{ 

pDC->Ellipse (FOOD_LOCATION [ixj  %  MAX  X  -  30, 
MAX_X  -  30, 

FOOD_LOCATION(ix]  %  MAX  X  +  30, 
MAX_X  ♦  30) ? 


) 


FOOD_LOCATION[ix]  / 
FOOD_LOCATION[ix]  / 


//Paint  current  male  and  female  Antelope  positions  on  screen 
for  (pDoc->aix  =  pDoc->antelopeMap.begin() ;  pDoc->aix  != 
pDoc->antelopeMap .end ( ) ;  ++ (pDoc->aix) ) 

if (pDoc->aix->second.getGeneration()  >  antelopeGeneration) 
antelopeGeneration  =  pDoc->aix->second . ge  tGeneration { ) ; 

if  (pDoc->aix->second.getDeathIndicator ()  ==  NOT_DEAD) 

switch (pDoc->aix->second . getMaxSpeed ( ) ) 

{ 

case  5  : 

( 

pDC->SelectOb j  ec t { &pPenMaleAntelopel ) ; 
pDC->SelectObj ect (SbrushMaleAntelopel ) ; 
break; 

} 

case  6  : 

( 

pDC->SelectObject(&pPenMaleAntelope2) ; 
pDC->SelectObj ect (&brushMaleAntelope2) ; 
break; 

) 

case  7  : 

{ 

pDC->Sel ect Object (&pPenMaleAntelope3) ; 
pDC->SelectObject (&brushMaleAntelope3 ) ; 
break; 

} 

case  8  : 

( 

pDC->SelectObject (&pPenMaleAntelope4) ; 
pDC->SelectObject (&brushMaleAntelope4 ) ; 
break 

) 

default ://9  and  10 


brushFemaleCheetah. CreateSolidBrush (RGB  (150,  150,  150)); 
pPenFemaleCheetah. CreatePen (PS_S0LID,  1,  RGB  (150,  150,  150)); 

pPenFood. CreatePen (PS_SOLID,  1,  RGB  (150,  200,  150)); 

) 

CAgentGUIView: : -CAgentGUIView ( ) 

( 

) 

BOOL  CAgentGUIView: :PreCreateWindow(CREATESTRUCT&  cs) 
return  CView: :PreCreateWindow(cs) ; 

) 

//  CAgentGUIView  drawing 

void  CAgentGUIView: :OnDraw(CDC*  pDC) 

CAgentGUIDoc*  pDoc  =  GetDocument () ; 

ASSERT_VALID (pDoc) ; 

static  int  simTime  =  0; 
static  numAntelopeStarved  =  0; 

static  numAntelopeKilled  =  0; 

static  numAntelopeDieOfAge  =  0; 

static  numAntelopeDieAsInfant  =  0; 

simulationTime  -  ++simTime; 

//four  counters  to  keep  track  and  report  how  many  of  each  type  are 
//still  alive  during  this  time  step 

int  numMaleAntelope  =  0, 

numFemaleAnt elope  =  0, 

numMaleCheetah  m  o , 


( 

pDC->SelectObject (&pPenMaleAntelope5) ; 
pDC->SelectObj ect  (fcbrushMaleAnt elopeS)  ,- 
break; 

> 

}//end  switch  getSpeedO 
if  (pDoc->aix->second.getGender ()  ==  MALE) 
numMaleAntelope++ ; 

} 

else 

{ 

numFemaleAntelope++ ; 

} 

pDC->Rectangle (pDoc->aix->second.getX ( ) -2 , 
pDoc->aix->second.getY( ) -2, 
pDoc->aix->second.getX ( ) +2, 
pDoc->aix->second.getY{)+2)  ,- 

)//end  if  NOT_DEAD 
} / /end  for  (aix) 

/ /Paint  current  male  and  female  Cheetah  positions  on  screen 
for  (pDoc->cix  =  pDoc->cheetahMap.begin() ; 

pDoc->cix  )=  pDoc->cheetahMap.end() ;  ++ (pDoc->cix) ) 

if (pDoc->cix->second. getGenerat ion { )  >cheetahGeneration) 
cheetahGeneration  =  pDoc->cix->second.getGeneration() ; 

if  (pDoc->cix->second.getDeathlndicator ()  ==  N0T_DEAD) 

if  (pDoc->cix->second .getGender ( )  ==  MALE) 

numMaleCheetah++ ; 

pDC - > Se 1 ec  tOb j  ec  t ( &p PenMa leCheetah) ; 
pDC->SelectObject (ibrushMa leCheetah) ; 

> 

else 

( 

numFemaleCheetah++; 

pDC->Selec tOb j  ect (tpPenFema leCheetah) ; 

^  pDC->SelectObject (ibrushFemaleCheetah) ; 

pDC->Rectangle (pDoc->cix->second.getX( ) -3, 
pDoc->cix->  second.  getY  0-3, 

.  pDoc->cix->second.getX{)+3, 
pDoc->cix->second.getY( ) +3) ; 

) / /end  if  NOT_D£AD 
) / /end  for  (cix) 


updateStatusBar (numMaleAntelope,  numFemaleAntelope, 

antelopeGeneration,  numMal eChee t ah,  numFemaleCheetah, 
cheetahGeneration,  simTime); 


} 


{ 


//  CAgentGUIView  printing 

BOOL  CAgentGUIView:  :OnPreparePrinting (CPrintlnfo*  plnfo) 

{ 

return  DoPreparePrinting (plnfo) ; 

) 

void  CAgentGUIView: :OnBeginPrinting(CDC*  /*pDC*/,  CPrintlnfo*  /*pInfo*/) 

{ 

) 

void  CAgentGUIView: :OnEndPrinting(CDC*  /*pDC*/,  CPrintlnfo*  /*pInfo*/) 

{ 

> 

//  CAgentGUIView  diagnostics 
#ifdef  .DEBUG 

void  CAgentGUIView: :AssertValid( )  const 

{ 

CView: : AssertVal id ( ) ; 

} 

void  CAgentGUIView: :  Dump  (CDumpCon  text  &  dc)  const 
{ 

CView:  :Dump(dc)  ; 

) 

CAgentGUIDoc*  CAgentGUIView : : GetDocument ( )/ /  non-debug  version  is  inline 

( 

ASSERT  (m_pDocument->IsKindOf  ( RUNTIME_CLASS  (CAgentGUIDoc)  ) )  ; 
return  (CAgentGUIDoc* )m_pDocument; 

) 

#endi f  //.DEBUG 

//  CAgentGUIView  message  handlers 

void  CAgentGUIView: :OnTimer (UINT  nIDEvent) 

( 

CRect  rect; 

GetClientRect (fcrect) ; 

CAgentGUIDoc*  pDoc  =  GetDocument ( ) ; 

ASSERT.VALID ( pDoc ) ; 

pDoc->moveAllAnimals ( ) ; 

pDoc->ante lopeSensing (simulationTime) ; 

pDoc - >ch eetahSensing(simulati onT ime ) ; 

InvalidateRect (rect) ; 

CView:  :OnTimer  (nIDEvent) ; 

) 

void  CAgentGUIView: :OnRunSimulation{) 


} 

) 

void  CAgentGUIView:  :OnSpeedFast() 

( 

KillTimer (0) ; 

loopspeed  =  FAST_S IMULATION_S  PEED ; 

OnRunSimulation ( ) ; 

) 

void  CAgentGUIView:  :OnSpeedMedium{) 

{ 

KillTimer (0) ; 

loopspeed  =  MEDIUM.SIMULATION.SPEED? 

OnRunSimulation ( ) ; 

) 

void  CAgentGUIView: :OnSpeedSlow() 

{ 

KillTimer (0) ; 

loopSpeed  =  SLOW.S IMULATION.S  PEED ; 

OnRunSimulation ( ) ; 

} 

void  CAgentGUIView:  :OnUpdateRunSimulation(CCmdUI*  pCmdUI) 

{ 

pCmdUI->SetCheck(simulationOn  ==  true) ; 

) 

void  CAgentGUIView:  :OnUpdateStopSimulation(CCmdUI*  pCmdUI) 

( 

pCmdUI->SetCheck  (simulationOn  ==  false); 

> 

void  CAgentGUIView:  :OnUpdateSpeedFast (CCmdUI*  pCmdUI) 

{ 

pCmdUI->SetCheck( loopspeed  ==  FAST.SIMULATION.SPEED) ; 

) 

void  CAgentGUIView:  :OnUpdateSpeedMedium (CCmdUI*  pCmdUI) 

{ 

pCmdUI->SetCheck  (loopspeed  ==  MEDIUM.SIMULATION.SPEED) ; 

) 

void  CAgentGUIView:  :OnUpdateSpeedSlow (CCmdUI*  pCmdUI) 

{ 

pCmdUI ->SetCheck( loopspeed  ==  SLOW.S IMULATION.SPEED ) ; 

> 

void  CAgentGUIView:  :OnLButtonDown(UINT  nPlags,  CPoint  point) 
{ 

statisticsOn  =  (statisticsOn  ==  false); 


#if  'defined  MY.TIMER 
ftdefine  MY_TIMER 
SetTimer  (0,  loopspeed,  NULL) ; 
#endi f 

simulationOn  =  true; 
return ; 


void  CAgentGUIView: :OnStopSimulation() 

{ 

KillTimer (0); 
simulationOn  =  false; 
return; 

} 

void  CAgentGUIView: :OnStepSimulation ( ) 

( 

f if  defined  MY.TIMER 
KillTimer (0) ; 

♦endif 

simulationOn  =  false; 

CRect  rect? 

GetClientRect (irect) ; 

CAgentGUIDoc*  pDoc  =  GetDocument ( ) ; 
ASSERT_VALID ( pDoc ) ; 

pDoc->moveAHAnimals  ( ) ; 
pDoc->antelopeSensing (simulationTime) ; 
pDo  c->cheetahSensing(s imu 1 a t i onT ime ) ; 

InvalidateRect (rect) ? 

return; 

) 


void  CAgentGUIView: :OnToggle 0 
< 

i  f  ( s  imu  1  a  t  i  onOn ) 

{ 

OnStopSimulation ( ) ; 
simulationOn  =  false; 

} 

else 

( 

OnRunSimulation  ()  ; 
simulationOn  =  true; 


void  CAgentGUIView: :OnLButtonUp(UINT  nFlags,  CPoint  point) 

( 

CView: :OnLButtonUp (nF lags,  point); 

) 

// - 

//  Method:  updates tatusBar () 

//  Parameters:  none 
//  Return  val:  none 

//  Purpose:  Updates  the  numbers  of  each  animal  indicated  in  the  Status 

//  bar  (lower  left  hand  side  of  the  window 

// - - 

void  CAgentGUIView: : updates tatusBar (int  numMaleAntelope, 

int  numFemaleAntelope,  int  antelopeGenerations, 
int  numMaleCheetah,  int  numFemaleCheetah, 
int  cheetahGenerations,  int  simTime) 

{ 

//get  a  pointer  to  the  window  using  the  global  AfxGetAppO 
//function 

CMainFrame*  p.mFrame  =  (CMainFrame*)  AfxGetAppO  ->m_pMainWnd; 

//CString  object  is  required  to  print  in  the  status  bar  -  we  will 
//convert  infs  to  a  string  of  ints 
CString  numbers; 

//start  developing  the  coordinates  string  with  number  of  male  Antelope 
numbers  =  "Antelope  -  M:  ■; 

//convert  the  numMaleAntelope  to  a  string  and  append  it  to  numbers 
in tegerToString (numMaleAntelope,  numbers) ; 

//add  the  Female  count  to  numbers  string 
numbers  +=  “F;  ■; 

in tegerToString (numFemaleAntelope ,  numbers ) ; 

//add  the  Antelope  generation  count  to  numbers  string 
numbers  +=  "G :  " ; 

integerToString (antelopeGenerations,  numbers)  ; 

//add  the  Cheetah  Male  and  Female  counts  to  numbers  string 
numbers  +=  *  Cheetah  -  M:  "? 
in  tegerToString  (numMaleCheetah,  numbers)  ; 

numbers  +=  "F: 

integerToString (numFemaleCheetah,  numbers) ; 

//add  the  Cheetah  generation  count  to  numbers  string 
numbers  +=  "G:  '? 

integerToString (cheetahGenerations,  numbers) ; 

numbers  +-  *  Simulation  Time:  "? 
integerToString ( s imTime ,  number s ) ; 


) 


CView: :OnLButtcnDown(nFlags,  point) ; 
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//call  MainFrame’s  SetPaneTextO  method,  passing  the  pane#  (0) 
//we  want  to  change,  and  the  new  value  it  should  reflect 
p_mFrame->SetPaneText (0 ,  numbers ) ; 


) 


// - - - 

//  Method:  integerToString ( ) 

//  Parameters:  int  number  -  number  of  which  ever  animal  is  passed 

CString  numbers  -  string  representation  of  our  population 

//  Return  val :  none 

//  Purpose:  Converts  our  animal  numbers  into  a  string  of  integers  for 

//  use  in  the  status  bar. 

// - - - 


void  CAgentGUIView:  .-printAntelopeStatistics  (CDC  *pDC) 

CAgentGUIDoc*  pDoc  =  GetDocument ( ) ; 

ASSERT.VALID (pDoc) ; 


//CString  object  is  required  to  print  in  the  status  bar  -  we  will 
//convert  int's  to  a  string  of  ints 
CString  numbers; 

//start  developing  the  coordinates  string  with  number  of  male  Antelope 
numbers  =  "Antelope  die:  A:  ■ ; 

//convert  the  numMaleAntelope  to  a  string  and  append  it  to  numbers 
integerToString (pDoc->antelopeDieOf Age,  numbers) ; 

//add  the  Female  count  to  numbers  string 
numbers  +=  **P:  ■; 

integerToString (pDoc->antelopeKi lied,  numbers) ; 

//add  the  Female  count  to  numbers  string 
numbers  +=  "IM:  " ; 

integerToString <pDoc->antelopeDiesAsInfant,  numbers) ; 

pDC->SetTextColor  (RGB  (0,0,0)); 
pDC->TextOut  (200,  20,  numbers); 

//add  the  Female  count  to  numbers  string 
numbers  *  "Antelope  Born:  "; 

in tegerToS tr ing ( pDoc- >numAn te lopeCrea ted ,  numbers) ; 

pDC->SetTextColor  (RGB  (0,0,0)); 
pDC->TextOut  (200,  35,  numbers); 


- - - - 

//  Method:  integerToString ( ) 

//  Parameters:  int  number  -  number  of  which  ever  animal  is  passed 
H  CString  numbers  -  string  representation  of  our  population 

//  Return  val:  none 

//  Purpose:  Converts  our  animal  numbers  into  a  string  of  integers  for 


int  digits  =  1; 
int  quotient; 

if  (num  /  FIVE_D1GITS  >  0) 

( 

divisor  =  FIVE.DIGITS; 
digits  =  5; 

) 

else  if  (num  /  FOUR_DIGITS  >  0) 

{ 

divisor  =  FOUR_DIGITS; 
digits  =4; 

} 

else  if  (num  /  THREE.DIGITS  >  0) 
( 

divisor  =  THREE.DIGITS ; 
digits  =  3; 

> 

else  if  (num  /  TWO.DIGITS  >  0) 

( 

divisor  =  TWO.DIGITS; 
digits  =  2; 

) 

else  if  (num  /  ONE  DIGIT  >  0) 

{ 

divisor  =  ONE.DIGIT; 
digits  =1; 


for  (int  ix=0;  ix<digits;  ix++) { 

switch  (quotient  =  (int)  num/divisor) { 
case  0: 

numbers  +=  ' 0  * ; 
break; 
case  1: 

numbers  +-  1 1 ' ; 
break; 
case  2: 

numbers  +-  • 2  * ; 
break; 
case  3: 

numbers  +=  *  3 ’ ; 
break; 
case  4 : 

numbers  +-  *  4 '  ; 
break; 
case  5: 

numbers  +=  'S’; 
break; 
case  6: 

numbers  +=  • 6 ' ; 
break; 
case  7: 

numbers  +=  ' 7  * ; 
break; 
case  8: 


//  use  in  the  status  bar. 

//— - - 

void  CAgentGUIView: :pr in tCheetahStatistics  (CDC  *pDC) 

CAgentGUIDoc*  pDoc  =  GetDocument () ; 
ASSERT_VALID(pDoc) ; 


//CString  object  is  required  to  print  in  the  status  bar  -  we  will 
//convert  int’s  to  a  string  of  ints 
CString  numbers; 

//start  developing  the  coordinates  string  with  number  of  male  Antelope 
numbers  =  "Cheetah  die:  A:  •; 

//convert  the  numMaleAntelope  to  a  string  and  append  it  to  numbers 
integerToString (pDoc->cheetahDieOf Age,  numbers) ; 

//add  the  Female  count  to  numbers  string 
numbers  +=  "S:  " ; 

integerToString (pDoc->cheetahDieOf Starvation,  numbers) ; 

//add  the  Female  count  to  numbers  string 
numbers  +=  “IM:  "; 

integerToString (pDoc->cheetahDiesAs Inf  ant,  numbers) ; 

pDC->SetTextColor  (RGB  (0,0,0)); 
pDC->TextOut  (200,  440,  numbers); 

//add  the  Female  count  to  numbers  string 
numbers  =  “Cheetah  Bom: 

integerToString (pDoc->numCheetahCreated,  numbers ) ; 

pDC->SetTextColor  (RGB  (0,0,0)); 
pDC->TextOut  (200,  455,  numbers); 

//add  the  Female  count  to  numbers  string 
numbers  =  "Failed  Chases:  •; 

integerToString (pDoc->numUnsuccessfulChase,  numbers) ; 

pDC->SetTextColor  (RGB  (0,0,0)); 
pDC->TextOut  (200,  470,  numbers); 


// . - - - 

//  Method:  integerToString  () 

//  Parameters:  int  number  -  number  of  which  ever  animal  is  passed 
11  CString  numbers  -  string  representation  of  our  population 

l l  Return  val:  none 

//  Purpose:  Converts  our  animal  numbers  into  a  string  of  integers  for 

//  use  in  the  status  bar. 

// - - - 

void  CAgentGUIView: : integerToString (int  num,  CString  &numbers) 

int  divisor  *  1; 


numbers  +=  *  8 • ; 
break; 
case  9: 

numbers  +=  *  9 ' ; 
break; 

) 

num  -=  quotient*divisor; 
divisor  /=  10; 


numbers  +=  “  •; 

) //end  integerToString ( ) 


//  EXECUTIVE  SUMMARY 
//File  Name:  AgentGUIDoc.h 

// 

//Authors: 

// 

// 

//Description 
// 

//March  1999,  Master  Thesis 

. . . 


Mark  A.  Boyd;  maboyd@bigfoot.com 
Todd  A.  Gagnon;  todd@gagnon.com 

interface  of  the  CAgentGUIDoc  class 


# include  <map> 

♦include  "Animal .h" 

♦include  "Antelope. h" 

♦include  "Cheetah. h“ 

♦if 

!  de  f  ined  ( AFX_AGENTGUIDOC_H__9  9A2  84  9B_8  63 1_1 1D2_8  89B_000  0  F80  927 1 5 

_ INCLUDED.) 

♦define  AFX_AGENTGUIDOC_H_99A2849B_8631_llD2_889B  OOOOF8092715 
_ INCLUDED. 

♦if  .MSC.VER  >=  1000 
♦pragma  once 

♦endif  //  .MSC.VER  >=  1000 
using  namespace  std; 

typedef  map<int,  Antelope>  POSITION2 ANTELOPE; 
typedef  map<int,  Cheetah>  P0SITI0N2 CHEETAH; 

♦define  FIVE.DIGITS  10000 
♦define  FOUR.DIGITS  1000 
♦define  THREE.DIGITS  100 
♦define  TWO.DIGITS  10 

♦define  ONE.DIGIT  1 

class  CAgentGUIDoc  :  public  CDocument 
{ 
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protected:  //  create  from  serialization  only 

CAgentGUIDoc ( ) ; 

DECLAR£_DYNCREATE ( CAgentGDIDoc ) 

//  Attributes 
public: 

P0SITI0N2ANTEL0PE  antelopeMap; 

P0SITI0N2CHEETAH  cheetahMap; 

POSITION2ANTELOPE  tempAntelopeMap; 

P0SIT10N2CHEETAH  tempCheetahMap; 

P0SITI0N2 ANTELOPE: : iterator  aix; 

P0SITI0N2CHEETAH: : iterator  cix; 

P0SITI0N2ANTEL0PE: : iterator  taix; 

P0SITI0N2CHEETAH: : iterator  tcix; 

int  antelopeDiesAsInfant, 
antelopeDieOfAge, 
ante lopeKi lied, 
numAntelopeCreated, 
cheetahDiesAsInfant, 
chee tahDi eOf Age , 
cheetahDieOf Starvation, 
cheetahKilled, 
numChe  e tahCr ea  ted , 
numUnsuccessfulChase ; 

//  Operations 
public: 

public: 

virtual  BOOL  OnNewDocument ( ) ; 

virtual  void  Serialize (CArchive&  ar) ; 

//  Implementation 
public: 

void  moveAllAnimals () ; 

void  antelopeSensing(int  simTime); 

void  cheetahSensing (int  simTime); 

virtual  -CAgentGDIDoc () ; 
iifdef  .DEBUG 

virtual  void  AssertValid ( )  const; 

virtual  void  Dump (CDumpContextfc  dc)  const; 
♦endi f 

protected: 


//  Generated  message  map  functions 
protected: 

DECLARE_MESSAGE_MAP ( ) 


)//end  while 

antelopeMap. insert (POSITION2ANT ELOPE: :value_type 
(tempAntelope.getLocationO  ,  tempAntelope) ) ; 

)//end  for  ( ante lopeN urn) 

//Create  a  group  of  initial  Cheetah 

for  (int  cheetahNum  »  0;  cheetahNum  <  NUM.CHEETAH ;  cheetahNum++) 
{ 

Cheetah  tempCheetah? 

if  (tempCheetah.getGender ()  ==  FEMALE) 
tempCheetah. pregPtr  =  new  Pregnancy; 
while (cheetahMap. find (tempCheetah. getLocat ion () )  != 
cheetahMap . end ( ) ) 

{ 

tempCheetah.avoidCollisionO  ; 

}//end  while 

cheetahMap. insert (POS I TION2 CHEETAH : : value. type ( 
tempCheetah . getLocat ion ( ) ,  tempCheetah) ) ; 

}//end  for  (cheetahNum) 


antelopeDiesAsInfant  =  0 
antelopeDieOfAge  =  0 
antelopeKilled  *=  0 
numAntelopeCreated  ~  0 
cheetahDiesAsInfant  =  0 
cheetahDieOfAge  =  0 
cheetahDieOfStarvation  =  0 
cheetahKilled  =  0 
numCheetahCreated  -  0 
numUnsuccessfulChase  =  0 


CAgentGUIDoc : : -CAgentGUIDoc ( ) 

( 

) 

BOOL  CAgentGDIDoc : : OnNewDocument ( ) 

( 

if  ( iCDocument: : OnNewDocument () ) 
return  FALSE; 

return  TRUE; 

) 


//  CAgentGUIDoc  serialization 
void  CAgentGUIDoc: : Serialize (CArchive&  ar) 
{ 

if  (ar.IsStoringO  ) 

{ 

} 

else 


); 

#endif 


//* 


1 1  EXECUTIVE  SUMMARY 
//File  Name:  AgentGUIDoc .cpp 

// 

//Authors: 

// 

// 

//Description: 

// 

//March  1999,  Master  Thesis 


Mark  A.  Boyd;  maboyd@bigfoot.com 
Todd  A.  Gagnon;  todd@gagnon.com 

implementation  of  the  CAgentGUIDoc  class 


/,********* . ************ . * . . 

♦include  <ctime> 

♦include  “stdafx.h" 

♦include  -AgentGUI.h- 
♦include  "MainFrm.h* 

♦include  "AgentGUIDoc.h* 

♦ifdef  _DEBUG 
♦define  new  DEBUG_NEW 
♦undef  THIS_FILE 

Static  Char  THIS_FILEn  =  _ FILE _ ; 

♦endif 

IMPLEMENT_DYNCREATE (CAgentGUIDoc ,  CDocument ) 
BEGIN_MESSAGE„MAP (CAgentGUIDoc ,  CDocument ) 
END_MESSAGE_MAP ( ) 

//  CAgentGUIDoc  construction/destruction 

CAgentGUIDoc : : CAgentGUIDoc ( ) 

( 


srand( (unsigned) time (NULL) ) ; 
rand  ( ) ; 

//Create  a  group  of  initial  Antelope 

for  (int  antelopeNum  =  0;  antelopeNum  <  NUM_ANTELOPE;  antelopeNum++) 
( 

Antelope  tempAntelope; 

if  (tempAntelope.getGenderO  ==  FEMALE) 
tempAntelope. pregPtr  =  new  Pregnancy; 
while  (antelopeMap.  find  (tempAntelope.getLocationO  )  !  = 
an tel opeMap . end ( ) ) 


{ 


tempAntelope.avoidCollisionO  ; 


//  CAgentGUIDoc  diagnostics 
♦ifdef  .DEBUG 

void  CAgentGUIDoc: :AssertValid( )  const 
{ 

CDocument: :AssertValid() ; 

) 

void  CAgentGUIDoc: : Dump (CDumpContextt  dc)  const 

( 

) 

♦endif  //.DEBUG 
//  CAgentGUIDoc  commands 

ft - 

//  Function:  CAgentGUIDoc:  :moveAllAnimals 

//  Return  Val:  None 
//  Parameter:  None 

//  Purpose:  Steps  through  the  list  of  alive  animals 

//  and  updates  their  position,  checks  age... 

//- 


CDocument: :Dump(dc) ; 


void  CAgentGUIDoc : : moveAllAnimals ( ) 

{ 

//  MOVE  ANTELOPE 

for  (aix  =  antelopeMap. begin () ;  aix  !=  antelopeMap. end () ;  ++aix) 
{ 

//Checks  to  see  what  the  agent's  move  goal  is  and  moves 
switch(aix->second.getNextAction() ) 


( 
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case  A.MATE  : 

{ 

aix->second.setSpeedOfNextMove (REGULAR) ; 
aix->second.moveTo(aix->second.getMoveToLocation() ) ; 
break; 

> 

case  A.NOTHING  : 

\ 

if (rand ()  <  RAND.MAX/2) 

aix->second.setSpeedOfNextMove (REGULAR) ; 
else 

aix->second . setSpeedOf NextMove (REST) ; 
aix->second.move() ; 
break ; 

) 

case  FEED  : 

{ 

aix->second . setSpeedOf NextMove ( REGULAR) ; 
aix->second.moveTo(aix->second.getMoveToLocation() ) ; 
break; 

) 

case  HERD  : 


{ 


aix->second . setSpeedOfNextMove (REGULAR) ; 
aix->second.moveTo (aix->second.getMoveToLocation( ) ) ; 
break; 


{ 


default://  FLEE 
{ 


aix->second. setSpeedOfNextMove (RUN) ; 
aix->second.moveFrom(aix->second.getMoveFromLocation() > ; 

break; 


)//end  switch  getNextActionO 

//test  for  collisions  of  agents  and  adjust  one 
wh i 1 e ( t empAn tel opeMap . f ind ( a i x- >se  cond . ge  tLoca  t i on ( ) )  !  = 
tempAntelopeMap.endO  ) 

{ 

aix->second.avoidCollision() ; 

}//end  while 

tempAnt el opeMap. insert (P0SITI0N2 ANTELOPE:  :value_type 
( aix->second.ge tLoca tion{ ) ,  aix->second) ) ; 


)//end  for  (aix)  Antelope  Move  Loop 


an tel opeMap  =  t empAn  tel opeMap ; 
tempAn tel opeMap . clear { ) ; 


//  MOVE  CHEETAH 


for  (cix  =  cheetahMap . begin { ) ;  cix  !=  cheetahMap.endO  ;  ++cix) 

//Checks  to  see  what  the  agent's  move  goal  is  and  moves  accordingl 

switch(cix->second.getNextAction() ) 

{ 

case  C_MATE  : 

{ 

cix->second. setEnergyLevel (cix->second.  getEnergyLevel ( )  - 
CHEETAH_REGULAR_ENERGY_PENALTY) ; 
cix- >second. setSpeedOfNextMove (REGULAR) ; 

cix->second.moveTo (cix->second.getMoveToLocation ( ) ) ; 
break; 

} 

case  C_NOTHING  : 

{ 

i f (cix->second . isResting ( ) ) 

{ 

cix- >second. setEnergyLevel (cix->second.getEnergyLevel () 

+  4*CHEETAH_H£ST_ENERGY_GAIN) ; 
cix->second . setSpeedOfNextMove (REST) ; 

> 

else  //if  not  rest  then  move  normally 
( 

if (rand 0  <  RANDJMAX/2) 


//  Purpose:  Steps  through  the  list  of  alive  male  and  female  Antelope 

ft  and  allows  them  to  sense  their  environment  and  decide  what 

//  to  do  for  their  next  action 

// - 

void  CAgentGUXDoc: :antelopeSensing(int  simTime) 

{ 

for  (aix  =  an tel opeMap. begin ( ) ;  aix  !=  antelopeMap.end( ) ;  ++aix) 

if  ( (simTime%365  >  ANTELOPE_START_IN_SEASON)  &&  (simTime%187  < 
ANTELOPE_STOP_IN_SEASON) ) 
aix->second.setInSeason(true) ; 
else 

aix->second. set InSeason (false) ; 

int  upper  =  MAX_X  *  MAX_Y, 
lower  =  MIN_X  *  MInIy, 
currentSensingRange  =  0; 

switch (aix->second.getSpeedOfNextMove ( ) ) 

( 

case  REST  : 

{ 

currentSensingRange  =  ANTELOPE_REST_SENSING_RANGE ; 
lower  =  aix->second. getLocation ( )  -  MAX_X  * 
ANTELOPE_REST_SENSING_RANGE  - 
ANTELOPE_REST_SENSING_RANGE ; 
upper  a  aix->second. getLocation ()  +  MAX  X  * 
ANTELOPE_REST_S£NSING_RANGE  + 

ANTELOPE_REST_SENS ING_RANGE ; 
break; 

} 

case  REGULAR  : 

( 

currentSensingRange  =  ANTELO  PE_REGULAR_SENS I NG_RANGE ; 
lower  =  aix->second . getLocation ( )  -  MAX_X  * 

ANTELO  PE_REGULAR_SENS I NG_RANGE  - 

antelope_regular_sensing!range ; 
upper  =  aix- >second. getLocation ()  +  MAX_X  * 
ANTELOPE_REGULAR_SENSING_RANGE  + 

ANTELOPE_REGULAR_SENS I NgIrANGE ; 
break; 

) 

default: //case  RUN 
{ 

currentSensingRange  =  ANTELO PE_RUN_SENSING_RANGE; 
lower  =  aix- >second. getLocation ()  -  MAX_X  * 
ANTELOPE_RUN_SENSING_RANGE  - 
ANTELOPE_RUN_SENS ING_RANGE ; 
upper  =  aix->second.getLocation()  +  MAX_X  * 

ANTELO  PE_RUN_S  ENS I NG_RANG E  + 

ANTELOPE_RUN_SENSING_RANGE ; 
break; 

} 

}//end  switch 

if  (lower  <  MIN_X  *  MIN_Y) 


cix->second . setEnergyLevel 

(cix->second.getEnergyLevel ()  - 
CHEETAH_REGULAR_ENERGY_PENALTY)  ; 
cix->second. setSpeedOfNextMove (REGULAR) ; 

) 

else 

{ 

cix->second. setEnergyLevel 

( c ix- >se  cond . ge  t EnergyLeve 1 ( )  + 
CHEETAH_REST_ENERGY_GAIN )  ; 
cix->second. setSpeedOfNextMove (REST) ; 

) 

) 

cix->second.move ( ) ; 
break; 

) 

case  AVOID  : 

{ 

cix->second. setEnergyLevel (cix->second. getEnergyLevel ( )  - 
CHEETAH_REGULAR_ENERGY_PENALTY )  ; 
cix->second. setSpeedOfNextMove (REGULAR) ; 
cix->second.moveFrom(cix->second.getMoveFromLocation() ) ; 
break; 

} 

default: //CHASE 
{ 

cix->second. setEnergyLevel (cix->second. getEnergyLevel {)  - 
CHEETAH_RUN_ENERGY_PENALTY )  ; 
cix->second. setSpeedOfNextMove (RUN) ; 
c ix- >se  cond . moveTo (cix->second.getMoveToLocation() ) ; 
break; 

) 

}//end  switch  getNextActionO 

//test  for  collisions  of  agents  and  adjust  one 
while (tempCheetahMap.find(cix->second.getLocation() )  != 
tempCheetahMap . end ( ) ) 

{ 

cix->second.avoidCollision() ; 

}//end  while 

tempCheetahMap. insert ( POSITION2CHEETAH : :value_type 
(cix->second. getLocation ( ) ,  cix->second) ) ; 

}//end  for  (cix)  Cheetah  Move  Loop 

cheetahMap  =  tempCheetahMap; 
tempChee  tahMap . clear ( ) ? 

) //end  CAgentGUIDoc : :moveAll Animals  { ) 


// - - - 

//  Function:  CAgentGUIDoc: ; antelopeSensingO 

//  Return  Val:  None 
//  Parameter:  None 


6fe 


lower  =  MIN_X  *  MIN_Y; 
if  (upper  >  MAX_X  *  MAX_Y) 
upper  =  MAX_X  *  MAX_Y; 

int  partnerMoveToDistance  =  100; 
int  friendMoveToDistance  =  100; 
bool  mated  =  false; 

bool  foimdPartner  =  false; 
bool  foundFriend  «  false; 

for  (taix  =  antelopeMap. lower_bound (lower) ;  taix  != 
an tel opeMap. upper_bound (upper) ;  ++taix) 

{ 

if (abs (aix->second. getx  ( )  -  taix->second.getX() )  <= 
currentSensingRange ) 

{ 

i f (aix->second .getldNum ( )  !=  taix->second.getIdNum() ) 

if (taix->second.isDead()  && 

(taix->second.getDeathIndicator()  ==  PREDATOR)) 
aix->second. setPredatorKnowledge (TRUE) ; 

if  (aix->second.canMate(taix->second)  &&  'mated) 

mated  *  true; 

aix->second.mate(taix->second) ; 
aix->second.setNextAction (FEED)  ; 

}//end  if 

else  if (aix->second .mateEligible ( taix->second) ) 
foundPartner  =  true; 

if (aix->second.getDistance(taix->second)  < 
par tnerMoveToDi s  tance ) 

( 

partnerMoveToDistance  = 

aix->second.getDistance (taix->second) ; 
aix->second .setMoveToLocation 
(taix->second.getLocation( ) ) ; 

}//end  if 

aix->second. setNextAction (A_MATE) ; 

} / / end  else  if  mateEligible (taix) 
else  if (! foundPartner) 

{ 

if ( { aix->second . getDis tance ( taix->second)  < 
friendMoveToDistance)  && 

( a  ix->second.  get  Distance  (taix->second)  > 

FRI END_STANDO FF_DI S TANC E ) ) 

( 

foundFriend  =  true; 
friendMoveToDistance  = 

aix->second.getDistance ( taix->second) ; 
aix->second. setMoveToLocation 
( taix->second . getLocation ( ) ) ; 
aix->second. setNextAction (HERD) ; 

)//end  if 
}//end  else  if 


}//end  if  getldNumO 
}//end  if  (aix->getX) 

)//end  for  taix  Antelope  Map  -  sense  other  antelope 

int  foodDistance  =  10000, 
foodLocation; 

for (int  ix  =0;  ix  <  10;  ix++) 

while (aix->second.distanceFromFood(FOOD_LOCATION[ix] )  < 

foodDistance) 

foodDistance  =  aix->second.distanceFromFood 
( F00D_L0CATI0N [ ix] ) ; 
foodLocation  =  FOOD_LOCATION [ ix) ; 

)//end  while 
)//end  for 

//if  your  not  goring  to  mate,  if  you  haven't  found  found 
//  a  friend  or  1/2  the  time 

//  when  you  have  found  a  friend  antelope  will  move  to  food 
if ( ! foundPartner) 

if ( * f oundFriend  ||  (rand()  <  RAND_MAX/2 ) ) 

{ 

if (foodDistance  <  FOODJRANGE) 

aix->second.setNextAction (A_NOTHING) ; 
else 
{ 

aix->second . setMoveToLocation ( foodLocation) ; 
aix->second . se tNextAction (FEED) ; 

)//end  else 
)//end  if 
}//end  if 

int  tempMoveDi stance  =  100; 

//check  for  predators  if  predator  knowledge  =  true 
if (aix->second. getPreda torKnowledge ( ) ) 

for  (tcix  =  cheetahMap. lower_bound (lower) ;  tcix  != 
cheetahMap.upper_bound( upper) ;  ++tcix) 

if (abs(aix->second.getX()  -  tcix->second.getX() )  <= 
curren tSens ingRange ) 

if (aix->second.getDistance (tcix->second) <  tempMoveDistance) 

tempMoveDi stance  =  aix->second.getDistance 
(tcix->second) ; 

aix->second.setMoveFromLocation 
(tcix->second.getLocation() ) ; 

)//end  if 


antelopeDieOf Age++ ; 

//Last  thing  we  do  is  check  to  make  sure  the  antelope  didn't  die 
//two  time  steps  ago.  if  so  take  out  of  world  otherwise  increment 

//counterthis  allows  the  other  animals  to  sense  this  one  and 
//learn  how  it  died 

if ( (aix->second.getDeathIndicator()  1=  NOT_DEAD)  && 

(aix->second . ge tDeathCounter { )  <  2 ) ) 

aix->second.setDeathCounter (aix->second.getDeathCounter {)  +  1); 

while (tempAntelopeMap. find (aix->second.getLocation() )  != 

tempAntelopeMap.end( ) ) 

{ 

aix->second.avoidCollision() ; 

)//end  while 

tempAntelopeMap . insert ( POSITION2ANTELOPE : : value_type 
(aix->second.getLocation ( ) ,  aix->second) ) ; 

}//end  if  getDeathlndicator () 

else  if (aix->second. getDeathlndicator ()  ==  NOT_DEAD) 

while ( tempAntelopeMap. find(aix->second.getLocation() )  != 

tempAntelopeMap . end ( ) ) 

( 

aix->second.avoidCollision() ; 

}//end  while 

tempAntelopeMap . insert (P0SITI0N2ANTEL0PE : : value_type 
(aix->second.getLocation ( ) ,  aix->second) ) ; 

)//end  if  else  getDeathlndicator () 


}//end  for  (aix)  Antelope  Sensing  Loop 

//  antelopeMap. clear () ; 
antelopeMap  =  tempAntelopeMap; 
tempAnte 1 opeMap . cl ear ( ) ; 

) //end  CAgentGUIDoc : : antelopeSensing ( ) 


//  Function:  CAgentGUIDoc: : cheetahSensing 0 

//  Return  Val:  None 
If  Parameter:  None 

//  Purpose:  Steps  through  the  list  of  alive  male  and  female  Cheetah 

//  and  allows  them  to  sense  their  environment  and  decide  what 

//  to  do  for  their  next  action 

// - : - 

void  CAgentGUIDoc: : cheetahSensing (int  simTime) 

for  (cix  =  cheetahMap. beginO ;  cix  !-  cheetahMap. end () ;  ++cix) 

{ 

if (cix->second. isRestingt) ) 

if (cix~>second.getEnergyLevel ( )  >  CHEETAH_RESUME_HUNTING_LEVEL) 
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aix->second. setNextAction (FLEE) ; 

}//end  if  aix->getx{) 

)//end  for  tcix  -  CheetahMap  -  sense  cheetahs 
) / /end  if  (aix->second.getPredatorKnowledge ( ) 


//NOW  THAT  THEY  HAVE  SENSED  AND  DECIDED  WHAT  TO  DO,  DO  IT 
//ANTELOPE  ACTION 
if (aix->second.  isPregnant ( ) ) 

*  if (aix->second.pregPtr->gestationTime==  ANTEL0PE_GESTATI0N_PERI0D) 

int  litter  =  aix->second.litterSize() ; 

numAntelopeCreated  +®  litter; 

Antelope  *babyAntelope; 

for  (int  ix  =  1;  ix  <=  litter;  ix++) 

babyAntelope  =  aix->second.giveBirth 
(aix->second.pregPtr->maleSpeed, 

aix->second.getMaxSpeed() , 

ai x->second . ge  tGenera  t i on ( ) , 
aix->second.getLocation() ) ; 

if (babyAntelope->diesAsInfant  0 ) 

babyAntelope->setDeathIndicator (INFANT_MORTALITY) ; 
antelopeDiesAsInfant++; 

if  (babyAntelope->getGender ( )  FEMALE) 
babyAntelope->pregPtr  =  new  Pregnancy; 

while (tempAntelopeMap. find (babyAntelope->getLocation() )  !  = 

tempAntelopeMap . end ( ) ) 

( 

babyAntelope->avoidCollision () ; 

)//end  while 

tempAntelopeMap . insert ( P0SITI0N2 ANTELOPE : : value_type 
(babyAntelope- >getLocation ( ) ,  *babyAntelope) ) ; 

) //end  for  (ix)  -  create  litter  of  size  litter 

aix->second. setPregnant (false) ; 

}//end  if  pregancy  gestation  time  >  ANTELOPE_G£STATION_TIME 
else 
( 

aix->second.pregPtr->gestationTime++; 

}//end  else 

}//end  if  aix->isPregnant ( ) 
aix->second.grow01der () ; 

//check  age  and  if  over  MAX_AGE  then  set  deathlndicator  to  0LD_AGE 
if (aix->second.getAge 0  ==  MAX_ANT ELO PE_AG E ) 

aix->second.setDeathIndicator (0LD_AGE) ; 


{ 

numUnsuccessfulChase++; 

cix->second.setRest (false) ; 

> 

} 

else 

( 

if  ( (simTime%365  >  CHEETAH_START_IN_SEASON)  &&  (simTime%365  < 
CHE ETAH_STOP_IN_S EASON) ) 

cix->second. set InSeason (true) ; 
else 

cix->second. set InSeason (false) ; 

int  upper, 
lower, 

curren tSens ingRange ; 

swi tch (cix->second . getSpeedOfNextMove ( ) ) 

( 

case  REST  : 

curren tSens ingRange  =  CHEETAH_REST_SENSING_RANGE; 
lower  =  cix->second.getLocation ()  -  MAX_X  * 

CHE  ETAH_REST_S  ENS ING_RANGE  - 
CHEETAH_R£ST_SENS ING_RANGE ; 
upper  =  cix->second.getLocation()  +  MAX_X  * 
CHEETAH_REST_S  ENS I NG_RANGE  + 

CHEETAH_REST_S  ENS  I  NG_RANG  E ; 
break; 

} 

case  REGULAR  : 

{  currentSensingRange  =  CHEETAH_REGULAR_SENS  ING.RANGE  ,- 
lower  =  cix->second.getLocation ()  -  MAX_X  * 
CHEETAH_REGULAR_SENSING_RANGE  - 
CHEETAH_REGULAR_SENSING_RANGE ; 
upper  =  cix->second.getLocation()  +  MAX_X  * 
CHEETAH_REGULAR_S  ENS  I  NG_RANG  E  + 

CHEETAH_REGULAR_S  ENS IN G_RANGE ; 
break; 

) 

default : //case  RUN 

{ 

currentSensingRange  =  CHEETAH„RUN_SENSING_RANGE ; 
lower  «  cix->second.getLocation()  -  MAX_X  * 
CHEETAH_RUN_SENS ING_RANGE  - 
CHEETAH_RUN_SENS  I  NG_RANGE  ; 
upper  =  cix->second.getLocation()  +  MAX_X  * 
CHEETAH_RUN_SENS I NG_RANGE  + 
CHEETAH_RUN„SENSING_RANGE ; 
break; 

) 

}//end  switch  getSpeedofNextMove 

//ensure  we  aren't  trying  to  sense  outside  the  world 


if  (lower  <  MIN_X  *  MIN_Y) 
lower  =  MIN_X  *  MIN_Y; 
if  (upper  >  MAX_X  *  MAX_Y) 
upper  =  MAX_X  *  MAX_Y? 

int  par tnerMoveToDis tance  =  1000; 

int  avoidDistance  =  CHE ET AH_ AVO I D_RANGE ; 

bool  foundPartner  =  false; 

bool  mated  =  false; 

bool  avoidCheetah  =  false; 

//sense  other  cheetah 

//still  only  sensing  inside  range 

for  (tcix  =  chee tahMap. begin () ;  tcix  !=  cheetahMap.endO ;  ++tcix) 

{ 

if (cix->second.getIdNum()  !=  tcix->second.getIdNum() ) 

{ 

if  (cix->second.canMate(tcix->second)  &&  ‘mated) 

{ 

mated  =  true; 

cix->second.mate (tcix->second) ; 
cix->second. setNextAction (C_NOTHING) ; 

)//end  if  canMateO 

else  if (cix->second.mateEligible(tcix->second) ) 

( 

foundPartner  *  true; 

i f (cix->second . getDis tance ( tcix->second)  < 
par tnerMoveToDis  tance ) 

{ 

par tnerMoveToDis tance  = 

cix->second. getDistance (tcix->second) ; 
cix->second . se tMoveToLocation 
( tcix->second .getLocation ( ) ) j 
}//end  if  getDistance( tcix) 
cix->second . setNextAction (CJMATE) ; 

}//end  else  if  mateEligible (tcix) 
else  if  (imated  &&  .'foundPartner  && 

(cix->second. getDis tance 

(tcix->second)  <  avoidDistance) ) 

( 

avoidCheetah  =  true; 

avoidDistance  =  cix->second.getDistance 
(tcix->second) ; 

cix->second. setMoveFromLocation 
(tcix->second.getLocation{) ); 
cix->second. setNextAction (AVOID) ; 

}//end  else  if  ( ! tempMateFlag) 

)//end  if  getldNumO 

if () foundPartner  &&  ! avoidCheetah) 

cix->second. setNextAction (C_NOTHING) ; 

)//end  for  (tcix)  cheetahMap  -  sense  other  cheetahs 

int  preyMoveToDi stance  =  1000; 


if  (! foundPartner  &&  !  (cix~>second. isRestingO )  && 

(cix->second.getEnergyLevel (}  <  CHEETAH_HIGH_ENERGY_LEVEL) ) 

//now  sense  antelope  in  world 

for  (taix  =  an telopeMap.lower_bound( lower) ;  taix  != 
antelopeMap.upper_bound (upper) ;  ++taix) 

{ 

if  ( (abs  (cix->second.getX()  -  taix->second.getX( ) )  <=: 
currentSensingRange)  && 

( taix->second . getDeathlndica tor ( )  ==  N0T_DEAD) ) 

{ 

if (cix->second.canKill (taix->second) ) 

{ 

cix->second . setEnergyLevel 

(cix->second.getEnergyLevel ()  + 
CHEETAH„ENERGY_BOOST) ; 

•  taix->second.setDeathIndica tor (PREDATOR) ; 
antelopeKilled++ ; 

cix->second. setNextAction (C_NOTHING) ; 

)//end  if  canKill() 
else 
< 

if (cix->second.getDistance (taix->second)  < 
preyMo veToD i s  t ance ) 

< 

preyMoveToDis tance  = 

cix->second . getDistance ( taix->second) ; 
cix->second . setMoveToLocation 
(taix->second.getLocation() ) ; 

}//end  if  getDistance 

cix->second. setNextAction (CHASE) ; 

) / / end  if  else  canKill (taix) 

)//end  if  cix->getX() 

//check  to  make  sure  still  has  enough  energy  to  hunt 
if (cix->second.getEnergyLevel {)  < 
CHEETAH_STOP_HUNTING_LEVEL ) 

{ 

cix->second.setRest (true) ; 
c ix- >s  econd . se  tNextAc  t i on ( C_N0THING ) ; 

) //end  if 

}//end  for  taix  AntelopeMap  -  cheetah  sensing  antelope 

}//end  if  (i foundPartner) 

}//end  else  if  isRestingO 

//PUT  IN  CHEETAH  ACTION  CODE 

if (cix->second. isPregnant ( ) ) 

{ 

i f (cix->second . pregP tr ->ges ta tionTime==CHEETAH_GESTATION_PERIOD) 


int  litter  =  cix->second.  litterSizeO  ; 

Cheetah  *babyCheetah; 

for  (int  ix  =  1;  ix  <=  litter;  ix++) 

( 

numChee  tahCrea  ted+ + ; 

babyCheetah  =  cix->second.giveBirth 

(cix->second . pregPtr->maleSpeed , 
cix->second.getMaxSpeed( ) , 
cix->second.getGeneration ( ) , 
cix->second. getLocation () ) ; 

i f  (babyCheetah->diesAsInf ant  ( ) ) 

( 

babyCheetah->setDeathIndi cator (INFANT_MORTALITY) ; 
chee tahDiesAsInfant++ ; 

> 

if  (babyCheetah->getGender ()  ==  FEMALE) 
babyCheetah->pregPtr  =  new  Pregnancy; 
while (tempChee tahMap. find (babyCheetah- >getLocation() )  != 
tempChee  tahMap . end ( ) ) 

{ 

babyCheetah->avoidCollision() ; 

} //end  while 

tempCheetahMap. insert (POSITION2CHEET AH: :value_type 
(babyCheetah->getLocation { ) ,  *babyCheetah) ) ; 

}//end  for  (ix)  create  litter  of  size  litter 

cix->second.setPregnant (false) ; 

} / /end  if  pregPtr->gestationTime()  ==  CHEETAH_GESTAT I ON_T I  ME 
else 

(  ' 
cix->second.pregPtr->gestationTime++; 

} / / end  else  pregPtr->gestationTime ( )  !=  CHEETAH_GESTATION_TIME 


//last  thing  we  do  is  check  to  make  sure  the  antelope  didn't  die  two 
//time  steps  ago.  if  so  take  out  of  world  otherwise  increment  counte 
r 

//this  allows  the  other  animals  to  sense  this  one  and  learn  how  it  di 
ed 

if ( (cix->second.getDeathIndicator ()  !=  NOT_DEAD)  && 

(cix->second . getDeathCounter ( )  <  2 ) ) 

{ 

cix->second.setDeathCounter (cix->second. getDeathCounter ()  +1); 
while (tempCheetahMap . find (cix->second. getLocation () )  != 
tempCheetahMap . end ( ) ) 

{ 

cix->second.avoidCollision() ; 

}//end  while 

tempCheetahMap. insert (POSITION2CHEETAH: :value_type 
(cix->second . getLocation ( ) ,  cix->second) ) ; 

}//end  if  getDeathlndicator () 

else  if  (cix->second. getDeathlndicator ()  ==  NOT  DEAD) 

< 

while ( tempCheetahMap. find (cix->second. getLocation () )  != 
tempCheetahMap . end ( ) ) 

( 

cix->second.avoidCollision() ; 

}//end  while 

tempCheetahMap . insert (POSITION2 CHEETAH: :value_type 
(cix->second.getLocation( ) ,  cix->second) ) ; 

)//end  if  else  getDeathlndicator () 

}//end  for  (aix)  Antelope  Sensing  Loop 

cheetahMap  =  tempCheetahMap; 
tempCheetahMap . clear ( ) ; 

) / /end  CAgentGUIDoc : : cheetahSensing () ; 


>//end  if  cix->i f Pregnant () 
cix->second.growOlder () ; 

//check  age  and  if  over  MAX_AGE  then  set  deathlndicator  to  OLD_AGE 
if (cix->second.getAge()  sub  MAX_CHEETAH_AGE ) 

{ 

cix->second. setDeathlndicator (OLD-AGE) ; 
cheetahDieOf Age++ ; 

) 


if  ((cix->second.getEnergyLevel()  <  CHEETAH_ST ARVAT I ON_LEVEL )  && 
(cix->second.getDeathIndicator ( )  ==  NOT_DEAD) ) 

{ 

cix->second. setDeathlndicator (STARVATION) ; 
cheetahDieOfStarvation++ ; 

> 


EXECUTIVE  SUMMARY 
Module  Name:  npsAgent. h 

Authors:  Mark  A.  Boyd  maboyd9bigfoot.com 

Todd  A.  Gagnon  todd9gagnon.com 

Description:  Declaration  for  the  npsAgent  class.  This  abstract  class 
implements  the  base  functionality  used  by  all  agents 

March  1999  Master  Thesis 


tifndef  _npsAgent_h 
•define  _npsAgent_h 

n  * . . . . 

//  INCLUDES  AND  EXTERNS 

//  . . . 

•include  *bbThread.h* 
•include  -npsGeometry.h* 
•include  'bbSafeClass.h* 
•include  "bbNamedObject .h' 
•include  "bbListedClass . h* 
•include  "npsVisualApi.h* 
•include  "vector. h" 
•include  "npsAgentApi.h" 
•include  <math.h> 


BAMBOO  IMPLEMENTATION 


ft 

// 

// 


•define  X  0 

•define  Y  1 

•define  Z  2 

•define  MIN_X  -50 
•define  MAX_X  50 
•define  MIN_Y  -50 
•define  MAX_Y  50 
•define  MIN_Z  -50 
•define  MAX_Z  50 

enum  AGENT_RELATIONSHIPS  {PREDATOR,  ENEMY,  FRIENDLY,  FOOD,  UNKNOWN); 
typedef  vector<char*>  agentRelationsVector; 

class  npsAgent; 


•ifdef  jipsAgent_c 

ACE_EXPORT_SINGLETON_DECLARATION(bbSafeClass<npsAgent>) ; 
ACE_EXPORT_SINGLETON_DECLARATION(bbListedClass<npsAgent> ) ; 

•else 

ACE_IMPORT_SINGLETON_DECLARATION  { bbSaf  eClass<npsAgent> )  ; 
ACE_IKPORT_SINGLETON_DECLARATION(bbListedClass<npsAgent> ) ; 

•endif 


//  . . . . ***** . ****..*..*••** 

//  FUNCTION  PROTOTYPE  SPECIFICATIONS 
//  ************************************ . ************** 

class  AGENT JWPI  npsAgent  :  public  npsGeometry, 

public  bbSaf eClass<npsAgent>, 
public  bbListedClass<npsAgent> , 
public  bbNamedObj  ect 

{ 


void  setSpeed  { int  s) ; 
int  getSpeed  ( ) ; 

void  setAge  (int  a); 
int  getAgeO; 
void  growOlderf )  ; 

void  setSensingRange ( int  sr) ; 
int  getSensingRange ( ) ; 


private : 

char  'agentType 

int  speed , 


void  setEnergyLevel { int  el); 
int  getEnergyLevel ( ) j 


bool 


age, 

sensingRange. 

energyLevel; 

remove; 


void  setRemoveO; 
bool  getRemove ( )  ; 

AGENT_RELATIONSHIPS  npsAgent: :getRelationship  (npsAgent  "agent) ; 


agentRelationsVector  knownPredators , 
knovnPrey, 
knovnFriends , 
knownEnemies , 
knownFood, 
unknownAgents ; 

npsAgent ( ) ; 

//  disable  default  construtor 


virtual  void  updatePosition(int  time)  *  0; 
virtual  void  sense (int  time)  *  0; 
virtual  bool  isKilled (npsAgent  tagent)  =  0; 

//general  utilities  that  might  be  useful 
double  myRand  ( ) ; 

char*  npsAgent : : integerToString ( int  inNum) ; 


protected: 

//  Never  create  protected  member  variables  as  they  may 
//be  corrupted  by  threads  accessing  them  via  objects 
//  instantiated  from  derived  classes.  Note  that  even 
It  internal  routines  must  be  concious  when  accessing 
//  them  directly. 

npsAgent (bbCallbaekFune  *callbackFunc) ; 

//  contructor  for  derived  agent 


//  ********* . . 

//  INLINED  MEMBER  FUNCTIONS 
//  ****** . . . . 

inline  void  npsAgent: :setAgentType{ char  "at) 

l 

agentType  =  at; 

) 


public: 

virtual  -npsAgent ()  *  0; 
ft  Destruct  a  device  object 


inline  char*  npsAgent; : getAgentType ( ) 
{ 

return (agentType) ; 

) 


//get  distance  between  two  agents 

float  getDistance (npsAgent  fcagent); 

float  getDistanceFroniLocation (npsVecl f  location); 


inline  void  npsAgent: : setSpeed  (int  s) 
l 

speed  e  s; 

) 


void  setAgentType ( char  *at); 
char*  getAgentType {) ; 

bool  isSameAgentType (npsAgent  *agent) ; 

void  addToPredators ( char  *name) ; 
void  addToPriendsfehar  “name); 
void  addToEnemies ( char  *narae) ; 
void  addToFood ( char  *name); 
void  addToUnknown ( char  *name) ; 


inline  int  npsAgent :: getSpeed  () 

C 

return  speed; 

} 


inline  void  npsAgent :: setAge  (int  a) 

{ 

age  ■  a; 

) 


>id  setRandomPosition ( ) ; 
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inline  int  npsAgent: : get Age ( ) 


return  age; 

inline  void  npsAgent: :grow01der {) 
age**; 

inline  void  npsAgent; :setSensingRange(int  sr) 
sensingRange  =  sr; 

inline  int  npsAgent; : get SensingRange ( ) 
return  sensingRange; 

inline  void  npsAgent :: setEnergyLevel ( int  el) 
energyLevel  »  el; 

inline  int  npsAgent; :getEnergyLevel{ ) 
return  energyLevel; 

inline  void  npsAgent; :setRemove( ) 
remove  *  true; 

inline  bool  npsAgent; :getRemove ( } 
return [remove) ; 

) 

# end if  //  _npsAgent„h 


. . . . . . **,*..****.....*.. 

//  EXECUTIVE  SUMMARY 
//  Module  Name:  npsAgent. c 

// 

//  Authors;  Mark  A.  Boyd  maboyd«big foot . com 
//  Todd  A.  Gagnon  todd8gagnon.com 

// 

//  Description:  Implementation  for  the  npsAgent  class.  This  abstract  class 
//  implements  the  base  functionality  used  by  all  agents 

//  March  1999  Master  Thesis 
//  ******* . . . 

//  . . . . . . . 

//  INCLUDES  AND  EXTERN'S 

//  . * . . ••*.*** . 


rand { ) ; 

thread  =  new  bbThread (updateFunc,  0.  CYCLE_RATE,  100.0); 
firsttime  >0; 

) 

) 


npsAgent : t -npsAgent { ) 

C 

//do  nothing 

) 


//Function:  npsAgent; :getRelationship  (bbType) 

//  Return  Val:  AGENT_R£LATI0NSHIPS 
//  Parameter:  bbType 

//  Purpose:  Allows  an  agent  to  get  the  class  type  of  another 

//  agent  and  determine  what  relationship  it  has  with  the 

//  new  agent.  If 

- - 

AGENT_RELATI0NSHIPS  npsAgent : :getRelationship  (npsAgent  *agent) 

{ 

AGENT_R£LATI0NSHIPS  relationship  -  UNKNOWN; 
agentRelationsVector: : iterator  it; 

if  ( !  known  Predator  s .  empty  ( ) ) 

C 

for  [it  -  knownPredators .begin (J ;  it  !«  knownPredators.end( ) ;  it**) 
( 

if { • { stremp { ag  ent- >  getAgentType ( ) , *it) ) J 
relationship  *  PREDATOR; 

) 

) 

if ( ! knownFr iends . emp  ty { ) ) 

( 

for  (it  *  knownFr lends. begin ( ) ;  it  !«  knownFri ends . end () ;  it**) 

{ 

if ( ! (stremp (agent ->getAgentType ( ) . *it) ) ) 

{ 

relationship  -  FRIENDLY; 

) 

) 

) 

if ( ! knovnEnemi es . empty ( ) ) 

< 

if ( i ( stranp( agent - >get AgentType () , *it))) 

( 

if (agent- >getAgentType()  **  *it) 
relationship  «  ENEMY; 

> 

) 

if (! knownFood. empty () ) 


•define  _npsAgent_c 
•include  "npsAgent .h* 
•include  <GL/gl.h> 


tt  . . . . . . * . . 

//  DEFINES  &  FILE  SCOPE  VARIABLES 

//  ****** . . . **** . . 

bbThread  ‘thread; 

//  . . ***** . . . . 

//  CODE 

. . . . . . . 

void  updateFunc (bbThread  "thread,  bbData  *data) 

{ 

static  int  time  •  0; 
npsAgent  ‘agent,  *sensedAgent ; 

int  numAgents  -  bbListedClnss<npsAgent>:  :getNum0bjects  () 
for  (int  i  «  0;  i  <  numAgents;  i**) 

( 

agent  *  bbListedClass<npsAgent>: :getObjeet(i) ; 
agent->sense(time) ; 
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for  (int  j  «  0;  j  <  numAgents;  j**) 

( 

agent  «  bbListedClass<npsAgent> ; : getOb j  ect (j); 
agent - >updat  eposi t ion ( time ) ; 
if  (agent->getRemove{ ) ) 

t 

delete  agent; 

//decrement  counters  to  account  for  deleted  object 
j--;  numAgents — ; 

) 

) 

if  (time%100  *»  0) 

t 

cout«"  simulation  time  *  ■  «  time«endl; 
cout«"num  Agents  *  *«numAgents«endl; 

J 

time**; 

> 


npsAgent; : npsAgent (bbCallbaekFunc  *_callbackFunc) 

:  npsGeometry(_callbackFunc) ,  speed(-l),  age(-l).  sensingRange ( -1) , 
energyLevel (-1) ,  agentTypeC npsAgent") 

( 

static  bool  firsttime  ■  1; 

//  first  check/set  this  class's  type 
if  (firsttime) 

( 

srandt (unsigned) time (NULL) ) ;  //seed  the  random  number  generator 


for  (it  “  knownFood. begin ( ) ;  it  !■  knownFood . end () ;  it**) 

( 

if ( ! ( stremp (agent->getAgentType ( ) , *it) ) ) 
relationship  *  FOOD; 

J 

) 

if ( ! unknownAgents . empty ( ) ) 

( 

for  (it  -  unknownAgents . begin ( ) ;  it  {•  unknownAgents . end () ;  it**) 

( 

if ( ! (stremp ( agent- >getAgentType ( ) , *it) )) 
relationship  ■  UNKNOWN; 

3 

) 

return  (relationship) ; 

> 


// - 

//Function:  getDistancet npsAgent) 

//Return  Val:  int  distance  between  two  agents 
//Parameter; 

II Purpose:  determine  distance  between  two'  agents 

// - - - 

float  npsAgent: : getDistanee ( npsAgent  iagent) 

( 

npsvec3f  thisPosition,  agentPosition; 
int  xSquare,  zSquare; 

float  answer ; 

this->getPosition (thisPosition) ; 
agent . getPosition (agentPosition) ; 

XSquare  -  (thisPosition[XJ  -  agentPosition (X] )  *  ( thisPosition [XJ  - 
agentPosition [X] ); 

zSquare  =  (thisPositionIZ)  -  agentPosition (Z] )  *  (thisPositiontZ)  - 
agentPosition [Z] ); 

answer  *  (sqrt (xSquare  +  zSquare)); 
return  (answer) ; 

) //end  npsAgent: ; getDistanee () 


// - - - - - 

/ /Function :  distanceFromLoeation ( ) 

//Return  Val:  int  between  animal  and  food 
//Parameter: 

//Purpose:  determine  distance  between  animal  and  food 

- - 

float  npsAgent : : get DistaneeFromLocat ion ( npsVee3 £  location) 

( 

npsVec3f  thisPoaition; 
int  xSquare,  zSquare; 

float  answer; 


this->getPosition (thisPosition) ; 


xSquare  =  (thisPosition(X)  -  loeation(X))  *  (thisPositiontXJ  - 
location [X] ) ; 

zSquare  «  (thisPositionrz]  -  location[ZJ)  •  (thisPosition(Z)  - 
location IZ] ) ; 

answer  *  (sqrt  (xSquare  ♦  zSquare)); 
return  ( answer  ) ; 

}  /  /end  npsAgent:  -.distancePromLocat  ion  ( ) 


//Function:  isSameAgentType (npsAgent*) 

//Return  Val:  bool 
//Parameter:  npsAgent 

//Purpose:  return  true  if  the  passed  agent  is  the  same  type  as  this 


bool  npsAgent: : isSameAgentType (npsAgent  *  agent  1 

( 

return ( this ->getAgentType ( )  «  agent ->getAgent Type {) ) ; 
)//end  npsAgent : : isSameType ( ) 


// - 

//Function:  setRandomDocation( ) 

//Return  Val: 

//Parameter: 

//Purpose:  allows  an  agent  to  be  placed  in  a  random  location.  The 

//  altitude  remains  constant  at  three  so  if  you  want  to  set 

//  a  random  altitude  as  well  then  you  must  overload  this  func 

- - 

void  npsAgent: :setRandomPosition() 

( 

npsVec3f  position; 
float  X,  y,  X  -  0.0; 

X  »  MIN_X  +  myRandO  *  (MAX_X  -  MIN_X) ; 

2  .  tUN_Z  ♦  myRandO  *  (MAX_Z  -  HIN_Z) ; 

//use  constant  altitude  for  now 

y  -  1; 

position,  set  (x.y.z) ; 
this->setPosition (position) ; 

) 


// . . — . . . — 

//Function:  addToPradator(char*) 

//Return  Val: 

//Parameter:  char*  -  agentType 

//Purpose:  will  add  the  agentlype  to  vector  of  known  predators 


void  npsAgent: :addToPredators( char  *name) 

( 

known  Predators .  insert  (knownPredators .  end  ( ) ,  name) ; 

) 


//— . - . . . . 

//Function:  addToFriends (char*) 

//Return  Val: 

//Parameter:  char*  -  agentType 

//Purpose:  will  add  the  agentType  to  vector  of  known  Friends 

- - 

void  npsAgent: : addToFriends (char  *name) 

C 

knovnFriends . insert (knownFr lends . end( ) ,  name) ; 

) 


. . - . . 

//Function:  addToEnemies(char*) 

//Return  Val: 

//Parameter:  char*  -  agentType 

//Purpose:  will  add  the  agentType  to  vector  of  known  enemies 

- - - - 

void  npsAgent: :addToEnemies (char  *name) 

{ 

knownEnemies . insert (known Enemies , end ( ) ,  name) ; 

) 

// - - - - 

/ /Function :  addToFood ( char* ) 

//Return  Val: 

//Parameter:  char*  -  agentType 

//Purpose:  will  add  the  agentType  to  vector  of  known  Food 

// . - . . 

void  npsAgent : : addToFood ( char  *name ) 

{ 

knovnFood.insert(knownFood.end() ,  name); 

} 


- - - - 

//Function:  addToUnknown [ char* ) 

//Return  Val: 

//Parameter:  char*  -  agentType 

//Purpose:  will  add  the  agentType  to  vector  of  known  unknown  agents 

It - - - 

void  npsAgent: : addToUnknown (char  *name) 

l 

unknownAgents . insert ( unknovnAgents . end { ) ,  name ) j 

) 


// . . . . 

//  Function:  npsAgent: :myRand  () 

//  Return  Val:  double  -  a  pseudorandom  number  between  0.0  and  1.0 
//  Parameter: 

//  Purpose:  return  random  number  between  0.0  and  1.0 

//— - - - - - 

double  npsAgent : :myRand  () 
t 

double  randomNumber; 


randomNumber  =  rand ( ) /double ( RAND_MAX ) ; 
return  randomNumber ; 

)//end  Animal: :myRand( ) 


// . . . . . . . . 

//  Method:  integerToString ( ) 

//  parameters:  int  number  -  number  id  which  ever  animal  is  passed 
//  Return  val:  char* 

//  Purpose:  Can  be  used  by  agent  classes  to  convert  integers  to  string 

//  values 

- - 

char*  npsAgent: :  integerToString  (int  inNum) 

{ 

int  divisor  «  1; 
int  digits  •  1; 
int  quotient; 

if  (inNum  /  10000  >  0) 

{ 

divisor  =  10000; 
digits  *  5; 

) 

else  if  (inNum  /  1000  >  0) 

( 

divisor  **  1000; 
digits  *  4; 

) 

else  if  (inNum  /  100  >  0) 

( 

divisor  =  100; 
digits  «  3; 

) 

else  if  (inNum  /  10  >  0) 

( 

divisor  ■  10; 
digits  «  2; 

) 

else  if  (inNum  /  1  >  0) 

{ 

divisor  =  1; 
digits  -  1; 


char  outNum  (64); 

strcpyl  outNum,  *■); 

for  (int  ix*0;  ix<digits;  ix*-*)  ( 

switch  (quotient  =  (int)  inNum /divisorK 
case  0: 

Strcat (outNum ,  *  0  * ) ; 
break; 
case  1: 

strcat (outNum,  *1*); 
break; 
case  2: 

strcat (outNum,  “2*)f 


break; 
case  3: 

strcat (outNum,  *3*); 
break; 
case  4: 

strcat (outNum,  *4*); 
break; 
case  S: 

strcat ( outNum.  *  5* ) ; 
break; 
case  €: 

strcat (outNum,  *6*) ; 
break; 
case  7: 

strcat (outNum,  "7*>; 
break; 
case  8: 

strcat (outNum,  *8*); 
break; 
case  9: 

strcat (outNum,  *9*); 
break; 

) 

inNum  -=  quotient*divisor; 

divisor  /■  10; 

) 

strcat (outNum,  *  *); 

return  (toutNumfO] ) ; 

) //end  integerToString!) 


it  ** . ***** . . . * . . . **** 

//  EXECUTIVE  SUMMARY 
//  Module  Name:  agentDisplayApp .h 
// 

//  Authors:  Mark  A.  Boyd  maboyd9bigfoot.com 

//  Todd  A.  Gagnon  todd9gagnon.com 

// 

//  Description:  Declaration  of  class  that  creates  an  openGL  window  to 
//  display  agents  in  world 

// 

//  March  1999  Master  Thesis 

. . *********** . ***** . . . ***"***' 

tifndef  _agentDisplayApp_h 
•define  _agentDisplayApp_h 

// . . . ********* . . . ***♦***..*....****. 

//  FUNCTION  PROTOTYPE  SPECIFICATIONS 

//  * . . . *' 

void  initAgentDisplayApp ( ) ; 

•endif  //  _agentDisplayApp_h 
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//  . . . . . . . 

//  EXECUTIVE  SUMMARY 

//  Module  Name:  agentDisplayApp.c 

// 

//  Authors:  Mark  A.  Boyd  maboyd9bigfoot.com 

//  Todd  A.  Gagnon  todd9gagnon.com 

// 

1 1  Description:  Implementation  of  class  that  creates  an  openGL  window  to 
//  display  agents  in  world 

// 

//  March  1999  Master  Thesis 

// . * . * . . . ****** . ...* . . 

//  . . . 

//  INCLUDES  AND  EXTERNS 

//  “““*“““““****“* . . . . 


•include 

•include 

•include 

•include 

•include 

•include 

•include 

•include 

•include 

•include 


"agentDisplayApp .h* 

-bbGlobals.h* 

■npsVisual.h* 

■npsWindow.h' 

•npsViewport.h* 

■ npsFlyingCamera .h* 
•npsKeyboard. h* 
■bbEventResponse. h■ 
-bbCallback.h■ 
•npsGeometry. h* 


•include  <aath.h> 
•include  <GL/gl.h> 


//  •.••**»•*••.•••••**••••.**•••*.., 
U  DEFINES  k  FILE  SCOPE  VARIABLES 
//  •  *“““****••****•**•********... 


bbcallback 

npsWindow 

nps Camera 

npsVeclf 

npsQuatemion 

npsViewport 

npsGeometry 


•callback; 

•window; 

•camera; 

position; 

rotation; 

•viewport; 

•boidl; 


//  **—*•***•*•*•*•***•**.. 

//  CODE 

//  ••••*• . ***...**..*.* 

void  initAgentDisplayAppO 
l 

void  initKeyboardModule( ) ; 
void  initVisualModule ( ) ; 

initReyboardModuleU ; 
initVisualModule ( ) ; 

] //end  initAgentDisplayAppO 


camera  »  new  npsFlyingCamera(npsFlyingCamera: : MOUSE) ; 
earner a->setName (• earner al •) ; 
camera->setFarClip{400.0£) ; 
camera->setGeometry (boidl)  ; 
posit ion. set (0. Of ,  3. Of,  -10. Of); 
camera->setPosition (position) ; 

rotat ion . setEulers (NPS_DEG2RAD ( 180 . Of ) , 0 . Of , 0 . Of ) : 
camera->setOrientation (rotation) ; 
camera- >setClearColor ( 0 . 66 f.  0.66f.  l.Of,  l.Of); 
viewport->setCamera (camera) ; 
window->addviewport (viewport) ; 

)//end  initCheckerboardFunc () 


void  escFunc (void  ‘object,  bbData  »data] 

( 

exit (0) ; 

)  /  /end  escFunc ( ) 


void  resetFunc (void  ‘object,  bbData  *data) 

{ 

npsVec3f  InitPosition; 

npsi^uatemion  initRotation; 

initPos it ion . set ( 0 . Of ,  3. Of.  -10. Of); 

initRotation . setEulers ( NPS_DEG2  RAD ( 180 . Of ) , 0 . Of , 0 . Of ) ; 

camera->setPosition(initPosieion) ; 

caaera->setOr ientat ion ( initRotation ) ; 

}//end  resetFunc() 


void  sideViewFunc (void  'object,  bbData  *data) 

{ 

npsVec3f  initPosition; 

npsQuateroion  initRotation; 

initPosition. set(0, Of ,  50. Of,  100. Of); 
initRotation . setEulers (0 . Of , NPSJDEG2RAD (-30. Of), 0. Of); 
camera->setPosition (initPosition) ; 
caaera->setOrientation ( initRotation) ; 

) //end  sideViewFunc () 


void  topViewFunc < void  ‘object,  bbData  'data) 

( 

npsVecBf  initPosition; 

npsQuaternion  initRotation; 

initPos It ion . set ( 0 . 0 f ,  150. Of,  O.Of); 
initRotation. setEulers(0. Of ,NPS_DBG2RAD(-90. Of) . O.Of )  ; 
camera->setPosition ( initPosition) ; 
camera->setOr ientat icn( initRotation) 

)//end  topViewFunc ( ) 


void  initCheckerboardFunc (void  ‘object,  bbData  ‘data) 
{ 

npsGeometry  ‘geometry; 


void  initKeyboardModule( ) 
{ 


void 

void 

void 

void 

npsKeyboard 

bbEventResponse 

bbCallback 


escFunc (void  ‘object,  bbData  ‘data); 
resetFunc (void  ‘object,  bbData  ‘data); 
sideViewFunc (void  ‘object,  bbData  ‘data); 
topViewFunc  (void  ‘object,  bbData  ‘data) 
•keyboard ; 

‘eventResponse; 

•callback; 


//  get  the  keyboard  device 

keyboard  *  npsKeyboard: : get Instance O ; 

//  set  up  exit  key 

eventResponse  *  new  bbEventResponse(npsKeyboard: :KEY_ESC  | 
npsKeyboard: :UP_TRANS) ; 

callback  «  new  bbCallback{ ) ; 
callback->setFune ( escFunc) ; 
eventResponse->addCallbackLast (callback) ; 
keyboard->addEventResponse(eventResponse) ; 

//  set  up  reset  key 

eventResponse  *  new  bbEventResponse ( npsKeyboard : :KEY_SPACE  | 
npsKeyboard: :UP_TRANS) ; 

callback  =  new  bbCallback( ) ; 
callback->setFunc (resetFunc) ; 
eventResponse->addCallbackLast (callback) ; 
keyboard->addEventResponse (eventResponse) ; 

/ /  set  up  side  view  looking  down  from  above  key 
eventResponse  *  new  bbEventResponsefnpsKeyboard: :KEY_T  | 

npsKeyboard:  :UP_TRANS) ; 

callback  =  new  bbCallbaek( ) ; 
callback->setFunc (sideViewFunc) ; 
eventResponse->addCallbackLast (callback) ; 
keyboard->add£ventResponse (eventResponse) ; 

//  set  up  top  down  view  key 

eventResponse  ■  new  bbEventResponse (npsKeyboard : :KEY_T  | 

npsKeyboard: : CTRL_MASK  j 
npsKeyboard:  :UP_TRANS)  ; 

callback  *  new  bbcallback ( ) ; 
callback->setFunc (topViewFunc) ; 
eventResponse->addCallbackLast (callback) ; 
keyboard->addEventResponse( eventResponse) ; 

)//end  initKeyboardFunc { ) 


void  initVisualModule! ) 

( 

void  initCheckerboardFunc (void  ‘object,  bbData  ‘data); 

//  init  terrain  geometry 

new  npsGeometry  ( initCheckerboardFunc) ; 

//  open  a  window,  viewport,  and  camera /ownship 
window  «  new  npsWindow ( 800 ,  600); 

viewport  »  new  nps Viewport (O.Of,  l.Of,  O.Of,  l.Of); 
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u_int 

const  float 
const  u_int 
const  u_int 
const  u_int 
const  u_int 
const  u_int 
u_int 
bool 


displayListNum; 

CELL_LENGTH  -  5.0; 

NUM_CELLS_LONG  *  25: 

NUM_CELLS_WIDE  »  25; 

NUM_VERTS_L0NG  *  NUK_CELLS_LONG  *  1; 
NUM_VERTS_WIDE  =  NUM_CELLS_WIDE  ♦  1; 
TOTAL_NUM_VERTS  *  NUM_VERTS_LONG  *  NUM_VERTS_WIDE; 
i,  j,  eurrVert; 
colorToggle; 


GL float  coords ( TOTAL_NUM_VERTS ] (3) ; 


//  init  Vais 
colorToggle  ■  0; 

for  (i-0;  i < NUM_VERTS_LONG ;  i**) 

C 

for  (j-0;  j<NUM_VERTS_WIDE;  j**) 

( 

eurrVert  •  i * NUM_VERTS_WID£  +  j; 


coords  I eurrVert) [01 

coords (eurrVert) [1] 
coords [eurrVert] [2] 

) 

) 


(CELL.LENGTH  *  i)  - 
( NUM_CELLS_LONG*CELL_LENGTH*  0 . 5  f )  ; 
0.0f; 

(-CELL_LENGTH  *  j)  ♦ 
(NUM_CELLS_WIDE*CELL_LENGTH*0-5f ) ; 


displayListNum  *  glGenLists (1) ; 
glNewList (displayListNum,  GL_COMPILE)  ; 
t 

glShadeModel (GL_FLAT) ; 
colorToggle  -  0; 

for  (i-0;  i<NUM_CELLS_LONG;  i+*) 

( 

glBegin(GL_TRIANGLE_STRIP) ; 

{ 

for  ( j=0 ;  j<NUM_VERTS_WIDE;  j**) 

( 

if  (colorToggle) 

( 

colorToggle  *  0; 

glColor3f (0. 8f ,  0.9f,  0.8f); 

) 

else 

{ 

colorToggle  »  1; 

glColor3f ( 0 . 85f ,  0.95f,  0.8Sf); 

) 


eurrVert  “  i*NUM_VERTS_WIDE  ♦  j; 
glVertex3 f v ( coords [eurrVert] ) ; 

eurrVert  *  (1*1) *NUM_VERTS_WIDE  +  j; 
glVertex3fv( coords [eurrVert  J )  ; 

) 

If  (  NUM_CELL£_WIDE  k  0x1  ) 

( 


if  (eolorToggle) 
eolorToggle  *  0; 

else 

colorToggle  »  1; 

) 

) 

glEnd() ; 

) 

glShadeModel (GL_SMOOTH) ; 

) 

glEndList ( ) ; 


//  set  displaylist  and  remove  callback  func 
geometry  ■  (npsGeoaetry*) object; 
geometry- >setDisplayListNum(displayListNum) ; 
geometry- >setCallbaekFunc(0) ; 

)//end  initCheckerboardFuncO 


//  . . *.****•*....*..**..*****•*—***.*** . 

//  EXECUTIVE  SUMMARY 
//  Module  Name:  animal. h 
// 

//  Authors:  Mark  A.  Boyd  maboyd9bigfoot.com 

//  Todd  A.  Gagnon  todd9gagnon.com 

// 

//  Description:  Definition  of  the  animal  class  agent  for  use  in  npsAgent 
// 

//  March  1999  Master  Thesis 

//  . . . . . . . 

lifndef  _animal_h 
tdefine  _animal_h 

//  . . . . ******** . ******* . . 

//  INCLUDES  AND  EXTERNS 

//  ****************************************************************—***' 

•include  ‘npsAgent. h* 

•include  "npsAgentApi.h" 

•include  *npsVec3f.h* 

//  ******* . * . ****** . ****** . . 

//  DEFINES 

//  •.**••*.•••*•**•.*..«*•*.****.*•.•«*••****•*••*****•*•****•***•***•*•< 

enua  DESIRED ^ACTION  (NOTHING,  MATE,  FEED,  GATHER.  AVOID,  CHASE,  FLEE}; 
enum  MOVE.SPEED  (REST,  REGULAR,  RUN) ; 

enum  DEATH_INDICATOR  {INFANTJBRTALITY,  OLD-AGE,  PREDATION,  STARVATION, 
NOT_DEAD} ; 

•define  MALE  *M* 

•define  FEMALE  *F’ 

•define  MATE_AGE  2 

•define  MATE.D I STANCE  .5 

•define  MOVE.INCREKENT  0.25 


DESIRED  .ACTION  getNextActionf ) ; 

void  setNextAction  ( DESIRED^ ACTION  na}; 

//get  and  set  the  choice  of  speed  for  next  move 

MOVEJSPEED  get Speed Of Next Move { ) ; 

void  setSpeedOfNextMove (MOVE.SPEED  ms); 

//get  and  set  reason  for  animals  death 
DEATH_INDICATOR  getDeathlndicator ( ) ; 
void  setDeathlndieotor (DEATH. INDICATOR  di); 

//return  random  Animal  litter  size  based  on  upper  and  lower  bounds 
int  randomLitterSize ( int  lower,  int  upper); 

//return  true  if  Animal  dies  as  infant  based  on  mortality  rate  provided 
bool  diesAsInf ant (double  mortalityRate) ; 

//can  the  Animal  mate 

bool  canMate (Animal  ‘potentialMate) ; 

void  mate (Animal  ‘mate); 

bool  mateEligible (Animal  "potentialMate); 

//get  and  set  deathCounter 
int  getDeathCounter ( ) ; 
void  setDeathCounter (int  dc) ; 

//get  and  set  generation  of  animal 

int  getGeneration ( ) ; 

void  setGenerationfint  g); 

//get  and  set  location  to  move  to 
npsVec3f  getMoveToLocat ion ( ) ; 
void  setMoveToLocation(npsVee3f  atl); 

//get  and  set  location  to  move  from 

npsVec3f  getMoveFromLocation( ) ; 

void  setMoveFromLocation(npsVec3f  mfl); 

//get  and  set  the  mate  age  variable 

int  getMateAge ( ) ; 

void  setMateAge(int  ma); 

//test  to  see  if  one  animal  can  kill  another 
virtual  bool  isKilled (npsAgent  Ragent)  =  0; 

//get  and  set  the  gender  for  an  animal 

char  getGender ( ) ; 

void  setGender(char  g) ; 

//see  if  female  is  pregnant 
bool  isPregnant{ ) ; 
void  setPregnant(bool  p); 

//see  if  the  animal  is  in  season 

bool  isInSeasonO ; 

void  set InSeas on (bool  is); 


struct  Pregnancy ( 
int  partner Id; 
int  maleSpeed; 
int  gestationTime; 
int  seasonCounter; 


class  Animal; 
tifdef  _Animal_c 

ACE_EXPORT_SINGLETON DECLARATION  ( bbSaf  eClass<Animal  > )  ; 
ACE.EXPORT.SINGLETON.DECLARATION (bbListedClass<Animal>) ; 
•else 

ACE.IMPORT.SINGLETON.DECLARATION (bbSaf eClass<Animal> ) ; 
ACE.IMPORT_SINGLETON_DECIARATION(bbList«dClass<rAnimal>} ; 
•endif 

//  *********** . . . . 

//  FUNCTION  PROTOTYPE  SPECIFICATIONS 

//  . . *.*..*.*..******.**..*•******.* 

class  AGENT_API  Animal:  public  npsAgent { 

private: 

DESIRED_ACTION  nextAction; 

MOVE_SPEED  speedOf NextMove ; 

DEATH_INDICATOR  deathlndicator ; 

int  generation, 
mataAge, 
deathCounter ; 

npsVec3f  moveToLocation, 

moveFr omLoca t ion ; 

char  gender, 

♦killer; 

bool  pregnant, 
inSeason , 
resting; 

protected: 

//Constructor 

An imal (bbCal IbackFunc  • ca llbackFunc ) ; 


public: 

//Default  Destructor  -  does  nothing  at  this  time 
-Animal ( ) ; 

//default  move  methods  provided  to  all  animals:  X-Z  planar 
void  move ( ) ; 

void  moveTo (npsVec3f  .position) ; 
void  moveFr omfnpsVec 3 f  .position); 

//get  and  set  the  desired  next  action  for  the  Animal 


//see  if  animal  needs  to  rest 
bool  isResting ( ) ; 
void  setRest(bool  r); 

//main  methods  to  let  agents  interact 
virtual  void  updatePositionfint  time)  *  0; 
virtual  void  sense (int  time)  =  0; 

void  setKiller (char  *k) ; 
char  *getKiller ( ) ; 

//pointer  to  Pregancy  struct 
Pregnancy*  pregPtr; 

); 


//  *********** . * . *.*.***.********* 

//  INLINED  MEMBER  FUNCTIONS 

//  . . * . * . *********** . 

inline  DESIRED.ACTION  Animal :: getNextAct ion ( ) 

( 

return  nextAction; 

) 

inline  void  Animal: : setNextAction  ( DESIRED.ACTION  na) 

{ 

nextAction  *  na; 

) 

inline  MOVE.SPEED  Animal: :getSpeedOf NextMove () 

( 

return  ( speedOf NextMove > ; 

) 

inline  void  Animal :: setSpeedOfNextMove (MOVE.SPEED  ms) 

{ 

speedOf NextMove  =  ms;  ' 

) 

inline  npsVec3 f  Animal : : getMoveToLocat ion ( ) 

{ 

return  (moveToLocation) ; 

) 

inline  void  Animal: :setMoveToLocation(npsVec3f  mtl) 
t 

moveToLocation  «  mtl; 

) 

inline  npsVec3f  Animal: jgetMoveFr omLocat ion () 

{ 

return  (moveFromLocation) ; 

) 


//see  if  animal  is  dead 
bool  isDead ( ) ; 


inline  void  Animal : :setMoveFromLocation(npsVec3f  mfl) 


moveFromLocation  »  mfl; 


inline  DEATH_ INDICATOR  Animal: : get Deathlndica tor () 
( 

return  (deathlndicator); 


inline  void  Animal: : set Death Indica tor (DEATH_INDICATOR  di) 
( 

deathlndicator  *  di; 


inline  int  Animal:  :getDeathCounter () 

{ 

return  (deathCounter); 

J 

inline  void  Animal: : set DeathCounter (int  do} 

{ 

deathCounter  *  dc; 


inline  int  Animal : :getGeneration( ) 

( 

return  (generation) ; 

) 

inline  void  Animal: :setGeneration( int  g) 

{ 

generation  »  g; 

) 

inline  int  Animal: :getMateAge() 

( 

return  (mateAge); 

) 

inline  void  Animal: :setMateAge( int  ma) 

{ 

mateAge  »  ma; 


inline  void  Animal : :setPregnant (bool  p) 

( 

pregnant  ■  p; 

) 

inline  bool  Animal :: isInSeason ( ) 

( 

return  (inSeason); 

) 

inline  void  Animal : :setInSeason (bool  is) 
( 

inSeason  *  is; 


inline  bool  Animal: :isDead( ) 

( 

return  (deathlndicator  !■  NOT_DEAD) ; 


inline  bool  Animal: :isRestlng() 

( 

return  (resting); 


inline  void  Animal: :setRest (bool  r) 


inline  void  Animal:  :setKiller( char  *k) 


inline  char  •  Animal: :getKiller() 

{ 

return (killer) ; 


•endif  //  _^nimal 


inline  char  Animal:  :getGender() 

{ 

return  (gender); 


//  EXECUTIVE  SUMMARY 
//  Module  Name:  animal. c 


inline  void  Animal: tsetGender (char  g) 


inline  bool  Animal: :isPregnant( ) 

( 

return  (pregnant) ; 


//  Authors:  Mark  A.  Boyd  maboyd9bigioot.com 

//  Todd  A.  Gagnon  toddBgagnon.com 

// 

//  Description:  Implementation  of  the  animal  class  agent  used  in  npsAgent 
//  ; 

//  March  1999  Master  Thesis 


•define  _animal_e 


//  INCLUDES  AND  EXTKKNS 


•include  • Animal. h' 
•include  <stdio.h> 
•include  <iostream.h> 
•include  <stdlib.h> 
•include  <etime> 


//  DEFINES  AND  FILE  SCOPE  CONSTANTS 


static  int  numAnimal  ■  0; 


//  Function:  Animal: :Animal() 

//  Return  Val:  None 
f!  Parameter:  None 
//  Purpose:  Default  constructor 


Animal: : Animal  (bbCallbackFunc  *_callbaekFunc) 

: npsAgent (_callbackFunc  ) ,  next Act ion (NOTHING) ,  ^ 
speedOfNextMove (REGULAR) ,  deathlndicator (NOT_DEAD) .  pregPtr (NULL) , 
pregnant (false),  inSeason (false) .  generation (1) ,  resting (false) 


npsVec3£  tempPosition; 

npsOuaternion  tempRotation; 

this->getPosition( tempPosition) ; 
tempRotation. getEulers(hpr) ; 

if (this->getSpeedOfNextMove()  ’=  REST) 

( 

float  tempx  ■  tempPositionlXl , 
tempY  *  tempPosition (Y] , 
tempZ  *  tempPosition[Z] ; 

double  randX  ■  npsAgent: :myRand() ; 

//  double  randY  *  npsAgent: :myRand() ;  //don’t  need  to  change  altitude 
double  randZ  =  npsAgent: :myRand() ; 

if  (randX  <■  0.5} 

( 

tempX  —  MOVE_INCREMENT; 
changeX  »  -1; 

) 

else 

( 

tempX  «■*  MOVE_INCREMENT; 
changeX  ■  I; 


]//end  Animal: : Animal () 


if  (randZ  O.S) 


//Function:  Animal: : -Animal ( ) 

//  Return  Val:  None 
//  Parameter:  None 
//  Purpose:  Default  destructor 


Animal: : -Animal  () 


tempZ  -■  MOVE_INCRQ!ENT;  / /  this  moves  the  animal  up  one  row 
ehangeZ  *  -1; 

) 

else 

{ 

tempZ  +=  MOVE_INCREMENT;  / /  this  moves  the  animal  down  one  ro* 
ehangeZ  *  I; 


//do  nothing  at  this  point 
) /  / end  Animal: : -Animal () 


//  Function:  Animal: :move  () 

//  Return  Val:  void 
//  Parameter:  None 

//  Purpose:  Provides  the  basic  movement  in  the  XZ  plane  which  should 

H  suffice  for  most  animals.  This  can  be  overloaded  in  a  sub- 

//  class  if  needed 


void  Animal:  :move() 


int  changeX  *  0. 
ehangeZ  «  0: 


if (tempx  <■  MINJX) 

tempX  *  MIN_X  ♦  1;/ /bring  the  animal  back  one  unit 
if (tempx  >=  MAX_X ) 

tempX  =  MAX_X  -  1;/ /bring  the  animal  back  one  unit 
if (tempZ  <-  MIN_Z) 

tempZ  *  MIN_Z  +  1;  //move  the  animal  down  one  row 
if  (tempZ  >=■  MAX_Z) 

tempZ  =  MAX_Z  -  1;  //move  the  animal  up  one  row 


if (changeX  >  0) 

( 

if (ehangeZ  >  0) 

hpr[0]  -  NPS_D£G2RAD(4S.0f);  //+ 
else  if (ehangeZ  <  0) 

hprtO]  -  NPS_DEG2RAD(45.0f ) ;  //- 
else 

hpr{0)  ■  0; 


float  hpr ( 3 ] ; 
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else  if  (changeX  <  0)  //else 


{ 

if (( thisTempX  -  moveToX)  >  0) 

if (changeZ  >  0) 

( 

hprtOJ  »  NPS  DEG2RAD(135.0f);  //♦ 

thisTempX  —  MOVE. INCREMENT; 

else  if (changeZ  <  0) 

changeX  *  -1; 

hprfOJ  «  NPS  DEG2RAD( 135 -Of ) ;  //- 

) 

else 

else  if ( (thisTempX  -  moveToX)  <  0) 

hpr [ 0 ]  -  NFS_DEG2RAD(180.0f) ; 

[ 

} 

thisTempX  MOVE.INCRIMENT; 

else 

changeX  =  1 ; 

) 

{ 

if  (changeZ  >  0) 

hpr t0 J  *  NPS_DEG2RAD(9O.0f ) ; 

if ( (thisTempZ  -  moveToZ)  >  0) 

else  if  (changeZ  <  0) 

( 

hpr[0)  *  NPS.DEG2RAD ( 90 . Of ) ; 

thisTempZ  MOVE. INCREMENT; 

else 

changeZ  *  -1; 

hpr[0]  ■  0; 

) 

} 

else  if ( (thisTempZ  -  moveToZ)  <  0) 

tempRotation . setEulers (hpr) ; 

( 

this->setOrientation ( tempRotat ion) ; 

thisTempZ  ♦-  MOVE. INCREMENT ; 

changeZ  =  1; 

tempPosition.set(tempX,  tempY.  tempZ); 

) 

this->aetPosition( tempPosition) ; 

)//end  if 

) //end  if  not  at  REST 

else/ /RUN 

return; 

if ( (thisTempX  -  moveToX)  >  0) 

) //end  Animal: : move ( ) 

thisTempX  —  (MOVE.INCREMENT  +  0 . 0S*this->getSpeed ( ) )  ; 

ChangeX  «  -1; 

else  if ( (thisTempX  -  moveToX)  *s  0} 

//  Function:  Animal: :moveTo  O 

( 

//  Return  Val:  void 

thisTempX  ♦«  (MOVE.INCREffiNT  +  0.05*this->getSpeed() ) ; 

//  Parameter:  Kone 

changeX  «  1; 

//  Purpose:  Provides  the  basic  movement  to  a  position  in  the  XZ  plane 

1 

//  which  should  suffice  for  most  animals.  This  can  be 

//  overloaded  in  a  subclass  if  needed 

if ( (thisTempZ  -  moveToZ)  >  0) 

void  Animal : :moveTo(npsVec3f  position) 

thisTempZ  —  (MOVE.INCREMENT  +  0 . 05*this->getSpeed ())  ; 

( 

changeZ  ■  -1; 

int  changeX  ■  0, 

J 

changeZ  ■  0; 

else  if ( (thisTempZ  -  moveToZ)  <  0) 

thisTempZ  +-  (MOVE.INCREMENT  ♦  0 . 05»this->getSpeed ( ) > ? 

changeZ  ■  1; 

npsVec3f  temp Position; 

1 

npaQuateroion  temp Rotation: 

) //end  else 

this->getPosition(tempPosition) ; 

//check  for  going  out  of  bounds 

tempRotation.getEulers(hpr) ; 

if (thisTempX  <-  MIN _X) 

thisTempX  •  KIN_X  +  1;/ /bring  the  animal  back  one  unit 

float  moveToX  ■  position[X], 

if (thisTempX  >«  HAXJO 

moveToY  «  positional. 

thisTempX  «  MAXJC  -  1;/ /bring  the  animal  back  one  unit 

moveToZ  ■  position [Z], 

if (thisTempZ  <■  MIN.Z) 

thisTempX  *  tempPosition [X] , 

thisTempZ  «  MIN.Z  ♦  1;  //move  the  animal  down  one  row 

thisTempY  *  tempPosition [Y] . 

if (thisTempZ  >=  MAX.Z) 

thisTempZ  ■  tempPosition [Z] ; 

thisTempZ  *  MAX.Z  -  1;  //move  the  animal  up  one  row 

if  (this -5-get SpeedOfNextMo ve[ )  ■>  REGULAR) 

//set  orientation 

t 

if (changeX  >  0) //plusX) 

( 

moveToY  *  .positional ,  //don’t  need  for  now 

if (changeZ  >  0)//plusZ)  //x»l,z*l 

moveToZ  *  _position[Z] , 

hpr[0]  *  NPS.DEG2RAD ( 4S . 0 f ) ;  //♦ 

thisTempX  *  tempPosition [X] , 

else  if  (changeZ  <  0) //x=l,z*-l 

thisTempY  »  tempPosition [Y] ,  //don’t  need  for  now 

hpr [0]  =  NPS_DEG2RAD(4S.0f );  //- 

thisTempZ  *  tempPosition[ZJ; 

else 

hpr [01  -  0; 

if [ this->getSpeedOfNextMove ( }  *■  REGULAR) 

) 

else  if  (changeX  <  0)  //else 

if ((thisTempX  -  moveToX)  >  0) 

{ 

if (changeZ  >  0)  //plusZ)  //x*-l.z=l 

thisTempX  ♦»  MOVE.INCREMENT; 

hpr[0]  -  NPS.DEG2RAD ( 13 5 . Of ) ;  //♦ 

changeX  *  1; 

else  if (changeZ  <  0)  //x*-l,z«-l 

1 

hpr [ 0 ]  -  NPS.DEG2RAD ( 13S . Of ) ;  //- 

else  if ( (thisTempX  -  moveToX)  <  0) 

else//x--l, z«0 

( 

hpr [0]  -  NPS_DEG2RAD(180.0f>; 

thisTempX  —  MOVE.INCREMENT; 

) 

changeX  »  -1; 

else//x=0 

) 

( 

if  (change2  >  0)//x-0,z*l 

if ( (thisTempZ  -  moveTo2)  >  0) 

hpr[0)  «  NPS_DEG2RAD(90.0f): 

( 

else  if  (changeZ  <  0)//x«0,z»-l 

thisTempZ  +=  MOVE.INCREMENT; 

hpr[0)  -  NPS.DBG2RAD { 90 . 0  f  )  ; 

changeZ  =  1; 

else 

} 

hpr[0]  «  0; 

else  if ( (thisTempZ  -  moveToZ)  <  0) 

) 

thisTempZ  MOVE.INCREMENT; 

tempPosition. set (thisTempX,  thisTempY,  thisTempZ); 

changeZ  •  -1; 

tempRotation. setEulers (hpr) ; 

J 

this->setPositicn (tempPosition) ; 

)//end  if 

this->setOrientation ( tempRotation) ; 

else/ /RUN 
{ 

return: 

if {( thisTempX  -  moveToX)  >  0) 

}//end  Animal: :moveTo() 

thisTempX  (MOVE.INCREMENT  +  0 . 05*this->getSpeed ( ) ) ; 

changeX  =  1; 

else  if ( (thisTempX  -  moveToX)  <  0) 

//  Function:  Animal: :moveFrom( ) 

( 

//  Return  Val:  void 

thisTempX  -=  (MOVE.INCREMENT  ♦  0 . 05*this->getSpeed ( ) ) ; 

//  Parameter:  None 

changeX  ■  -1; 

//  Purpose:  Provides  the  basic  movement  from  a  position  in  the  XZ  plane 

} 

//  which  should  suffice  for  most  animals.  This  can  be 

//  overloaded  in  a  subclass  if  needed 

if ( (thisTempZ  -  moveToZ)  >  0) 

void  Animal : :moveFroa(npsVec3f  .position) 

thisTempZ  ♦»  (MOVE.INCREMENT  ♦  0 .05*this->getSpeed ( > ) ; 

{ 

changeZ  ■  1; 

int  changeX  *  0, 

) 

changeZ  »  0; 

else  if ( (thisTempZ  -  moveToZ)  <  0) 

float  hpr [31; 

thisTempZ  -=  (MOVE.INCREMENT  «■  0 .0S*this->getSpeed() ) ; 

changeZ  •  -1; 

npsVec3 f  tempPos it ion ; 

1 

npsQuatemion  tempRotation; 

)//end  else 

this->getPosition(terapPosition) ; 

//check  for  going  out  of  bounds 

tempRotation . getEulers (hpr) ; 

if (thisTempX  <•  MIN  JO 

thisTempX  ■  MINJC  ♦  1;/ /bring  the  animal  back  one  unit 

float  moveToX  ■  .position [X] , 

' y  if (thisTempX  >-  MAX.X) 

thisTempX  -  MAX_X  -  X;/ /bring  the  animal  back  one  unit 
if (thisTempZ  <*  MIN_Z) 

thisTempZ  «  MIN_Z  ♦  1;  //move  the  animal  down  one  row 
if  (thisTempZ  >*  MAX_Z) 

thisTempZ  ■  KAX_Z  -  1;  //move  the  animal  up  one  row 

//set  orientation 
if (changeX  >  0)//plusX) 

{ 

if (changeZ  >  0)//plusZ) 

hpr[0]  «  NPS_DEG2RAD ( 45 . Of ) ;  //♦ 
else  if (changeZ  <  0) 

hpr [0]  «  N?S_DEG2RAD(4S.0f);  //- 
else 

hpr[0]  *  0; 

} 

else  if  (changeX  <  0)  //else 
( 

if (changeZ  >  0)  //plusZ) 

hprIO]  .  NPSJDEC2RAD(135.0f) ;  //♦ 
else  if (changeZ  <  0) 

hpr (0]  «  NPS_D£G2RAD ( 13 5 . Of } ;  //- 
else 

hpr[0]  -  NPS_DEG2RADt 180  .  Of) ; 


if  (changeZ  >  0) 

hpr{0]  -  NPS_DEG2RAD ( 90 . 0 f ) ; 
else  if  (changeZ  <  0) 

hpr (0]  *  NPS_DEG2RAD ( 9 0 . Of ) ; 
else 

hpr (0)  «  0; 


tempPosition. set (thisTempX,  thisTempY,  thisTempZ); 
tempRo tat ion . setEu lers (hpr) ; 
this->setPosition(tempPosition) ; 
this->setOrientation (tempRotation) ; 


)//end  Animal : : moveFrom ( ) 


//  Function:  bool  Animal: :mateEligible() 

//  Return  Val: 

//  Parameter: 

//  Purpose:  return  whether  Animal  is  eligible  to  mate 

// - - - 

bool  Animal :  :mateEligible (Animal  ApotentialMate) 

( 

bool  aateEligibleFlag  ■  false; 

if  (this->getAgenttype{ )  ■»  potentialMate. getAgentType! ) ) 

( 

if ((this->getGender()  ■*  MALE)  fct 

(potent i alMate . getGender ( )  ■«  FEMALE) ) 


aateEligibleFlag  *  ( ! (potentialMate. is Pregnant ( ))  it 
(potentialMate. is InSeason O )  it 

(potentialMate.getAge( )  >=  potentialMate. getMateAge( ) )&t 
(this->getAge ( )  >■  this->getMateAge( ) ) ) ; 

) 

else  if ((this->getGender()  »■  FEIALE)  it 

(potentialMate. getGender! )  ««  MALE) ) 

( 

mat  eEl igibleFlag  *  ( ! (this->isPregnant() )  && 

( this->isInSeason ( ) )  it 

(potentialMate .getAge ( )  >=  potentialMate.getMateAge( } )« 
( this->getAge ( )  >*  this->getMateAge ( ) ) ) ; 

) //end  if  else  getGender ().. . 


l//end  if  getAgentType ( ) 
return  mateEligibleFlag; 


}//end  Animal: jmateEligible 


//  Function:  bool  Animal :: canMate ( ) 

//  Return  Vais 
//  Parameters 

//  Purpose:  return  whether  Animal  c 


bool  Animal: : canMate (Animal  ApotentialMate) 

( 

bool  raateFlag  ■  false; 

if  ( this- >getAgentiype ( )  ■=  potentialMate. getAgentType ( ) ) 

( 

if ( | thia->getGender ( )  ■■  MALE)  it 

(potentialMate . getGender ( )  «*  FEMALE)) 

( 

mateFlag  ■  ( ( ! (potentialMate. isPregnant() ) )  it 
( this- >getNextAct ion ( )  ■*  MATE)  a 
(potentialMate.getNextActionO  ■■  MATE)  it 
(potentialMate. getAge ()  >»  potentialMate. getMa teAge ()  )tt 
(this->getAge( )  this->getMateAge() )  it 
(this->getDistance (potentialMate)  <=  MATE_DI STANCE) ) ; 

) 

else  if ( (this->getGender()  «»  FEMALE )  it 

( potent ialMate. getGender ( )  ■»  MALE)) 

( 

mateFlag  -  < O (this->isPregnant() ) )  it 

( this- >getNextAct ion ( )  *»  MATE)  it 
(potentialMate.getNextActionO  ==  MATE)  it 
(potentialMate. getAge( )  >»  potentialMate. getMateAge () 
(this->getAgeO  >=  this->getMateAge ( ) )  £4 
(this->getDistance (potentialMate)  HATE_DISTANCE) ) ; 

)//end  if  getGender () 

)//end  if  getAgentType!) 
return  (mateFlag) ; 


//end  file  Animal. c 


//Function:  Animal:  :mate  () 

//Return  Val: 

//Parameter:  mate 

//Purpose:  begin  pregnancy  once  two  animals  mate 


void  Animal: :  mate  (Animal  tmate) 
l 

if  (this->getAgentType( )  =«=  mate.getAgentiypet ) ) 

( 

if (this->getGender()  ==  MALE) 

{ 

mate. set Pregnant (true) ; 

mate ,pregPtr->maleSpeed  ■  this->getSpeed{ ) ; 
mate .pregPtr->ges tat ionTime  ■  0; 


f  EXECUTIVE  SUMMARY 
f  Module  Name:  antelope. h 

i 

'  Authors:  Mark  A.  Boyd  maboyd9bigfoot.com 

'  TOdd  A.  Gagnon  todd8gagnon.com 

'  Description:  Definition  of  the  anntelope  class  agent  used  in  npsAgent 
'  March  1999  Master  Thesis 


fifndef  _antelope_h 
•define  _antelope_h 


this->setPregnant(true) ; 
this->pregPtr->maleSpeed  «  mate.getSpeedO ; 
th  is->pr egPtr  -  >gest at  ionTime  *=  0; 


//  INCLUDES  AND  EXTERNS 


•include  " npsAgent Api.h* 
•include  ‘animal. h* 


return; 

}//end  function  Animal : :mate ( ) 


//  Function:  randomLitterSize ( int  lower,  upper) 

//  Return  Val:  int  -  number  in  litter 
//  Parameter:  lower,  upper 

//  Purpose:  return  a  random  number  of  Animals  in  a  litter  bounded  by 

//  the  upper  and  lower  bounds  provided 


int  Animal:  : randomLitterSize ( int  lower,  int  upper) 
( 

return  (npsAgent : :myRand ( )  *  upper  ♦  lower); 


}//end  Animal:  slitterSizeO 


:  INFANT_M0RTALITY_RATE  0 . 50 

s  REST„SENSING_RANGE  20 

!  REGULAR_SENSING_RANGE  15 

:  RUN_SENSING_RANGE  10 

s  FRIEND_STANDOFF_DISTANCE  1.5 
!  FOOD_RANGE  S 

s  MAX.AGE  3650 

i  BEGIN_SEASON  30 

*  END_SEASON  75 

:  ONE_YEAR  365 

:  KILLED_RADIUS  0 . IS 

»  KILL_PR0BABILITY  0 . 7 

:  ANTEL0PE_GESTATI0N_PERIOD  60 


//  Function:  diesAs Inf ant (double) 

//  Return  Val:  bool 

//  Parameter:  mortalityRate 

//  Purpose;  return  whether  infant  dies  < 


bool  Animal; sdiesAsInf ant (double  mortalityRate) 
( 

double  randNum  »  npsAgent :  :snyRand  ( )  ; 


return  (randNum  <  mortalityRate); 


//  FUNCTION  PROTOTYPE  SPECIFICATIONS 


class  Antelope:  public  Animal ( 


int  idNum, 
herdsize; 


)//end  Animal: :mortality() 
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//Constructor 

Antelope  (bbCallbackFunc  *callbackFunc) ; 


//Constructor 
Antelope ( ) ; 

//Default  Destructor  -  does  nothing  at  this  tine 
-Antelope ( ) ; 

//produce  a  newborn  Antelope  from  a  male/female  pair 
Antelope*  giveBirthOnt  motherSpeed,  int  fatherSpeed, 

int  motherGeneration,  npsVec3f  motherLocation) ; 

//get  antelope  identification  number 
int  get IdNum ( ) j 

//set  and  get  herd  sire 
int  getHerdSizef ) : 
void  setHerdSize(int  hs) ; 

//can  the  Antelope  Bate 

bool  canMate (Antelope  ‘potentialMate); 

void  mate (Antelope  ‘mate); 


inline  void  Antelope: :setKerdSize( int  hs) 

{ 

herdSize  »  hs; 

) 

tendif  //  _antelope_h 


,,  . . . . ****** . ************* 

//  EXECUTIVE  SUMMARY 
//  Module  Name:  antelope. c 
// 

//  Authors:  Mark  A.  Boyd  maboyd8bigfoot.com 

//  Todd  A.  Gagnon  todd8gagnon.com 

// 

//  Description:  Implementation  of  the  antelope  class  agent  for  use  in 
//  npsAgent 

// 

//  March  1999  Master  Thesis 

//  **** . . . ***' 


//are  the  Antelope  Bate  eligible 

bool  mateEligible (Antelope  ‘potentialMate); 

//test  to  see  if  antelope  is  killed  by  predator 
bool  isKilled (npsAgent  fcagent) ; 

//allow  antelope  to  move  through  the  world 
void  updatePositionlint  time); 

//allow  the  antelope  to  sense  the  world 
void  sense ( int  time) ; //npsAgent  ‘seneedAgent) ; 


//  . . . . ******* 

//  INCLUDES  AND  EXTERNS 
//  ** . **** . . 

•include  “antelope. h" 
•include  <stdio.h> 
•include  <iostream.h> 
•include  <stdlib.h> 
•include  <ctime> 

•include  <math.h> 

•include  <GL/gl.h> 


int  litterSizeO ; 
bool  diesAsInfant () ; 

void  sensePredators (npsAgent  ‘agent,  float  AclosestPredator ) ; 
void  senseFriendly(npsAgent  ‘agent,  float  AclosestFriend, 
float  tclosestPartner ) ; 

void  senseFood (npsAgent  ‘agent,  npsVee3f  AelosestFoodPosition) ; 
void  senseEnemyl npsAgent  ‘agent,  float  AclosestUnknown) ; 
void  senseUnknovn ( npsAgent  ‘agent,  float  AclosestUnknown) ; 

1; 


// 

//  XNLINED  MEMBER  FUNCTIONS 

//  . . . . . 

inline  int  Antelope: : get IdNum <) 
( 

return  idNum; 

) 


n . ***** . . . 

//  DEFINES  AND  FILE  SCOPE  CONSTANTS 

. . . . . . ♦'**«•**» 

void  initGeomFunc(void  ‘object,  bbData  ‘data) ; 

static  int  numAntelope  ■  0; 

// - - - - - 

//  Function:  Antelope: : Antelope ( ) 

//  Return  Val:  None 
//  Parameter:  None 
//  Purpose:  Default  constructor 

- - 

Antelope: : Antelope  {) 

:Animal(initGeomFune) ,  idNum ( numAntelope++ ) , 

( 

this->setAgentType ( ‘Antelope*  > ; 
double  genderRand  ■  npsAgent:  smyRandO; 


inline  int  Antelope: :getHerdSize( ) 

{ 

return  herdSize: 

) 


{ 

this- >setGender( FEMALE) ; 
this->pregPtr  ■  new  Pregnancy; 

) 

//assign  a  random  max  speed  for  the  animal  between 
int  maxSpeed  *  myRand ( ) ‘10; 
if  (maxSpeed  <  5) 
naxSpeed  *»  5; 
this->setSpeed(maxSpeed) ; 


if  (genderRand  <  O.S) 

this->setGender (MALE) ; 
else 
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glVertex3fv (coords [21 ) ; 

glColor3 f ( 0 . 7S f ,  0.5f,  0.75f ) ;  //  back 

g 1 Vert  ex3  f v ( coords ( 1 ] ) ; 
givertex3fv (coords [21 ) ; 
glVertex3fv (coords [3] ) ; 

) 

glEndO ; 

glShadeModel (GL_ SMOOTH) ; 

J//end  Antelope: :initGeom{ ) 


herds ize(l) 


this->setAge( int (myRand ( )  •  MAX_ AGE) ) ; 
this->setMateAge (MATE^AGE) ; 

this->setSensingRange(REGULAR_SENSING_RANSE) ; 

) //end  Antelope: : Antelope ( ) 


// - - - 

//Function:  Antelope :: -Antelope { ) 

//  Return  Val:  None 
//  Parameter:  None 
//  Purpose:  Default  destructor 

// - 

Antelope: : -Antelope  () 

( 

//do  nothing  at  this  point 
) / /end  Antelope: : -Antelope () 


// - 

//  Function:  initGeomFunc O 


//  Return  Val: 

//  Parameter: 

//  Purpose:  provides  OpenGL  calls  from  which  Babcaoo  will  draw  antelope 


void  initGeomFunc (void  ‘object,  bbData  ‘data) 
l 


GLf loat 


coords [4] [31  » 
{-0.3f ,  O.Of, 
(  0-3f ,  O.Of, 
{  O.Of,  0.4f. 


{  {  O.Of.  O.Of,  -0.5f), 
0.5f).  //  back  left 

O.Sf).  //  back  right 

O.Sf)  //  top 


}; 


//  front 


- - 

//Function:  Antelope: :giveBirth  () 

//Return  Val:  Antelope 

//Parameter:  male  speed,  female  speed 

//Purpose:  make  a  new  Antelope  with  speed  the  average  of  it's  parents 


Antelope*  Antelope: :giveBirth{ int  motherSpeed,  int  fatherSpeed, 

int  motherGeneration,  npsVec3f  motherLocation) 

( 

int  newspeed; 
char  name [64]; 

Antelope  ‘newBom; 

if ( npsAgent : :myRand ()  <  . S } 
newspeed  *  motherSpeed; 
else 

newspeed  =  fatherSpeed; 
newBom  =  new  Antelope  ( ) ; 
strcpyfname,  ‘Antelope*); 

strcat (name,  this->integerToString <newBom->getIdNum( ) ) ) ; 
nevBom->addToFriends  ( newBom- >getAgentType  ( ) ) ; 
newBom ->setName  (name) ; 

//set  values  of  newborn  based  on  parents'  information 
newBom->setSpeed  (newspeed) ; 
newBom-  >setPos  ition  ( motherLocat  ion ) ; 
newBom->setGeneration{raotherGeneration  +  1); 


glShadeModel  (GL_FLAT)  ; 
glBegin (GL_TRIANGLES) ; 

( 

glColor3f (0.7Sf.  0.5f,  0.75f);  //  bottom 

glVertex3f v ( coords  1 0 1 ) ; 
giver tex3  f v ( coords [ 2 ] ) ; 
g IVer  tex3 f  v ( coords [ 1] ) ; 

glColor3f ( 0 -75f ,  0.5f,  O.Sf);  //  left 
glVert ex3fv (coords [OJ ) ; 
g lVertex3  f v ( coords [ 1 ] ) j 
glVertex3fv (coords [3] ) ; 


return  newBom: 
}//end  antelope : : mate ( ) 


// - - - 

//  Function:  bool  Antelope :: canMate () 

//  Return  Val:  \ 

//  Parameter: 

//  Purpose:  return  whether  Antelope  can  mate  or  not 

// - - - - - 

bool  Antelope: :  canMate  (Antelope  ‘potentialMate) 

( 

bool  mateFlag  ■  false; 


glColcr3f (O.Sf,  O.Sf,  0.7Sf);  //  right 

glVertex3fv (coords [0] ) ; 
glVertex3fv( coords [3] ) ; 


if ( (this->getGender()  *=  MALE)  && 

( potentialMate- >getGender ( )  »=  FQ1ALE) ) 


mateFlag  *  ( ( ! (potent ialMate->isPregnnnt ( ) ) )  kk 
( this ->getNextAction ( )  »«  MATE)  kk 
(potentialMate->getNextAction( )  ■«  MATE)  && 
(this->getDistance( ’potent ialMate)  ««=  MATE  DISTANCE)); 

) 

else  if { (this->getGender ( )  -«  FEMALE)  kk 

(potentialMate-»getGender  ( )  **  MALE) ) 

{ 

mateFlag*  ( ( ! (this->isPregnant ( ) ) )  kk 

( this ->get Next Act ion ( )  ■*  MATE)  && 
(pOtentialMate->getNextAction{)  MATE)  kk 
( this->getDistanee ( *potent ialMate >  <*  MATE_DI STANCE) ) ; 


return  mateFlag; 
)//end  canMateO 


//  Function:  bool  Antelope: :mateEligible( ) 

//  Return  Val: 

//  Parameter: 

//  Purpose:  return  whether  Antelope  is  eligible  to  mate 

// - 

bool  Antelope: :mateEligible (Antelope  ’potent ialMate) 


bool  mateEligibleFlag  *  false; 

if ( (this->getCender ( )  ■■  MALE)  && 

<potentialMate->getGender()  ==  FEMALE)) 

{ 

mateEligibleFlag  *  ( ! (potentialMate->isPregnant ( ) )  kk 
(potentialMate->isInSeason( ) )  kk 
(potentialMate->getAge ()  >*  MATE_AGE )  u 
(thia->getAge()  >-  MATE_AGE) ) ; 

1 

else  if ( (this->getGender ( )  ■»  FEMALE)  kk 

(potentialMate->getGender ( )  ■»  MALE)) 

C 

mateEligibleFlag  *  ( !  (this-s>isPregnant( ) )  kk 
( this->isXnSeason ( } )  kk 
(potentialMate->getAge()  >*  MATE^AGE)  kk 
( this->getAge ( )  >*  MATE_AGE ) ) ; 


return  mateEligibleFlag; 
)//end  Antelope: :aateEligible{) 


mate->setPregnant (true) ; 

mate->pregPtr->maleSpeed  *  this->getSpeed { ) ; 
mate->pregPtr->gestationTime  *  0; 

} 

else 

t 

this->setPregnant{true) ; 

this->pregPtr->maleSpeed  *  mate->getSpeed( ) ; 
this->pregPtr~>gestationTime  -  0; 


return; 

)//end  function  Antelope: :mate() 


//  Function:  updatePositionf } 

//  Return  Val: 

//  Parameters 

it  Purpose:  allow  the  antelope  to  update  position 


void  Antelope: :updatePosition(int  time) 

{ 

switeh(this->getNextAetion( ) ) 

{ 

case  KATE  : 

C 

this->setSpeedOfNextMove (REGULAR) ; 

this ->moveTo( this- >getMoveToLocat ion { ) ) ; 

break; 


if (rand ()  <  RANDJ1AX/2) 

this->setSpeedOfNextMove{REGULAR) ; 
else 

this->setSpeedOfNextMove(REST) ; 
this->»ove( ) ;  . 
break ; 

) 

case  FEED  : 

{ 

thia->setSpeedOfNextMove (REGULAR) ; 
this->moveTo ( this->getMoveToLocation ( ) ) ; 
break; 


//Function:  Antelope: :mate  () 

//Return  Val:  true  /  false 
//Parameter:  mate 

//Purpose:  begin  pregnancy  once  two  antelope  mate 


void  Antelope: : mate (Antelope  ’mate) 
C 

if (this-vgetGender ( )  ■■  KALE) 


this->aetSpeedOf Next Move (REGULAR) ; 
this->moveTo(this->getMoveToLocation() ) ; 
break; 


this->setSpeedOf NextMove {REGULAR ) ; 
this->»oveTo(this->getMoveFromLocation ( ) ) ; 
break; 


case  FLEE  : 

( 

this->setSpeedOfNextMove(RUN) ; 

this ->moveFrom( this ->getMoveFromLocat ion () ) ; 

break; 

) 

default  s  //chase 
{ 

this->setSpeedOfNextMove(RUN) ; 
this->moveFrom { this ->getMoveToLocat ion ( > ) ; 
break; 


)//end  switch  getNextActionO 

if ( this->isPregnant ( ) ) 

( 

if (this->pregPtr->gestationTime  *■  ANTELOPE_GESTATION_PERIOD) 

{ 

int  litter  *  this->litterSize( ) ; 

npsVec3f  tempLocation; 

this ->get Posit ion (temp Location) ; 

Antelope  * baby  Antelope  • 

for  (int  ix  *  1;  ix  <*  litter;  ix++) 

{ 

babyAntelope  *  this->giveBirth(this->getSpeedO , 
this->pregPtr->maleSpeed, 
this->getGeneration() ,  tempLocation) ; 

if ( babyAntelope- >diesAs Infant ( ) ) 
i 

babyAntelope->setDeathIndicator ( INFANT^MORTALITY) ; 


//do  nothing  at  this  time 

) 

if  (babyAntelope- s-getGender  ( )  «*  FEMALE) 
babyAntelope->pregPtr  ■  new  Pregnancy; 

)//end  for  (ix)  -  create  litter  of  size  litter 

this->setPregnant (false) ; 

)/ /end  if  pregancy  gestation  time  >  ANT£LOPE_GESTATION_TIME 
else 
( 

this->pregPtr->gestationTime+f; 

)//end  else 

)//end  if  aix-> is Pregnant ( ) 
this->growOlder() ; 

//check  age  and  if  over  MAX_AGE  then  aet  deathlndicator  to  OLD_AGE 
if (this->getAge()  —  MAX  _AGE) 

( 

this->setDeathIndieator(0LD_JU5E)  ; 


//time  steps  ago.  if  so  take  out  of  world  elsee  increment  counter 
//this  allows  other  animals  to  sense  this  one  and  learn  how  it  died 

if ( (this->getDeathIndicator()  !»  N0T_DEAD)  kk 
( this->getDeathCounter { )  <  2)) 

{ 

this->setDeathCounter (this->getDeathCounter ( )  ♦  l) . 

)//end  if  getDeathlndicator ( ) 

else  if (( this- >getDeath!ndica tor ()  is  N0T_DEAD)  kk 
( this->getDeathCounter ( )  >*2 ) ) 

( 

this->setRemove ( ) ; 

)//end  if  alse  getDeathlndicator!) 

}//end  updataPositionO 


//  Function:  sense () 

//  Return  Val? 

//  Parameter: 

//  Purpose:  allow  the  antelope  to  sense  environment  and  decide  which 

//  action  to  take  next 

- - 

void  Antelope: : sense (int  time) //npsAgent  ’sensedAgent) 

( 

if ( (time%ONE_YEAR  >  BEG IN_SEAS0N )  kk  ( time*ONE_YEAR  <  END_SEASON) ) 
this->setInSeason ( true ) ; 
else 

this->set InSeason ( false ) j 

int  currentSensingRange  «  0; 

float  elosestPartner  *  100, 

closestFriend  =  100, 

closestEnemy  =  100, 

cl osestUn known  =  100, 

closestPredator  ■  100; 

bool  sensedFood  =  false; 

npsVec3f  moveToLocation,  closestFoodPosition; 

//initialize  to  large  value  to  start  with 

closestFoodPosition. set (MAX_X*S. Of ,  MAX„Y*5.0f,  MAX_Z*5.0f); 

swi tch ( this- >getSpeedOf NextMove ( ) ) 

( 

case  REST  ; 

{ 

currentSensingRange  =  R£ST_SENSING_RANGE; 
break; 


currentSensingRange  -  REGULAR_SENSING_RANGE; 
break; 


//Last  thing  we  do  is  check  to  make  sure  the  antelope  didn’t  die  two 


currentSensingRange  *  RUT'_SENSING_RANGE ; 


break; 


this->setNextAction (NOTHING);  //reset  this  for  tracking 

int  numAgents  ■  bbListedClass<npsAgent> : :getNumObjects{ ) ; 

for  (int  j  -  0;  j  <  numAgents;  j*+) 

npsAgent  "sensedAgent  -  bbListedClass<np*Agent> : :getobject( j) ; 

if  ( (this->getDistance ("sensedAgent)  eurrentSensingRange)  Lt 

( this->getName ( )  ! =  sensedAgent- >getName ( ) ) } 

( 

switch  ( this->getRelationship(sensedAgent) ) 

( 

case  PREDATOR: 

( 

sensePredators(sensedAgent,  closestPredator) ; 
break; 


if ( this- >getNextAct ion ()  S*  FLEE) 

senseEnemy (sensedAgent ,  closestEnemy) ; 
break; 


if { this- >getNextAct ion {)  (■  FLEE) 

( 

senseFriendlyfsensedAgent.  closestFriend, 
closestPartner  > ; 

) 

break; 


sensedFood  ■  true; 

if ( this->getNextAction ( )  !■  FLEE) 

< 

aenseFood( sensedAgent,  closestFoodPosition) j 

) 

break; 

J 

default:  //case  UNKNOWN: 

{ 

aenseUnknown (sensedAgent,  closestUnknown) ; 
break ; 

) 

)//end  switch 

} //end  if  (distanceToAgent. . . ) 

J//end  for  ( j<numAgents) 

//if  your  not  going  to  mate,  if  you  haven't  found  found  a 
//friend  or  1/2  the  time  when  you  have  found  a  friend  antelope 
//will  move  to  food  anyway 


if < (this->getNextAction()  !=  MATE)  u 

(this->getNextAction()  (»  FLEE)  sensedFood) 

if  ( (this->getNextAction()  !•  GATHER)  ||  (npsAgent: :myRand()  <  O.SJ) 

if  ( this- >getDistanceFrowLocat ion (closestFoodPosition )  <  FOOD_RANGE) 
this->setNextAction (NOTHING) ; 
else 

{ 

this->setMoveToLocation (ClosestFoodPosition) ; 
this->setNextAction  ( FEED )  ; 

)//end  if  else  getDistance 
)//end  if  nextAction  !*  Gather 
)//end  if  nextAction  !=  MATE.., 

)//end  Antelope: ;sense( ) 


//  Function:  sensePredators ( ) 

//  Return  Val: 

//  Parameter:  npsAgent,  float 

//  Purpose:  allow  agent  to  sense  a  known  predator  and  decide  what  to 

//  next 

- - - - 

void  Antelope: : sensePredators (npsAgent  "agent,  float  (.closestPredator ) 

( 

npsVeclf  moveFromLocation; 

if (this->isKilled(*agent) > 

( 

this->setRemove ( ) ; 

this->setDeathIndicator  (PREDATION)  ; 
this->setKiller (agent- >getAgentType ( ) ) ; 

} 

else  i f ( this- >getDis tance ( *  agent )  <  closestPredator)  . 

( 

closestPredator  «  this->getDistance ("agent) ; 
agent- >getPosition (moveFromLocation) ; 
this->aetMoveFromLocation (moveFromLocation) ; 
this- >setNextAct ion (FLEE) ; 

)//end  if 

)//end  sansePredator 


//Function:  senseFriendly ( ) 

//  Return  Val: 

//  Parameter:  npsAgent,  float,  float 

//  Purpose:  allow  agent  to  sense  a  known  predator  and  decide  what  to 

//  next 

- - 

void  Antelope:  :  senseFriendly  (npsAgent  "agent,  float  A  closestFriend, 
float  t closest Partner) 

( 

float  distanceToAgent  ■  this->getDistance ( "agent ) ; 
npsVeclf  moveToLocation; 


if  ( this ->isSameAgentType( agent ) ] 

( 

if  (this->canMate( (Antelope  *) agent)) 

( 

this->mate ( (Antelope  * ) agent ) ; 

this->setNextAction(FEED) ;  //should  feed  after  mating 
}//end  ifcanMatef) 

else  if { (this->mateEligible( (Antelope  "lagent))  &£ 
(distanceToAgent  <  closestPartner)) 

( 

closestPartner  -  distanceToAgent ; 
agent->getPosition(moveToLocation) ; 
this->setMoveToLocation (moveToLocation) ; 
this->setNextAction (MATE) ; 

}//end  else  if  mateEligible (sensedAgent) 
else  if (this->getNextAetion()  !»  MATE) 

{ 

if ( (distanceToAgent  <  closestFriend)  tt 

(distanceToAgent  >  FR I END_STANDO FF_D I STANC E ) ) 

( 

closestFriend  *  distanceToAgent; 
agent ->getPosition (moveToLocation) ; 
this->setMoveToLocation (moveToLocation) ; 
this->setNextAet ion (GATHER) ; 

}//end  if (getDistance (} 

}//end  else  if  (getNextAction) 

)//end  if  isSameAgentO 
else 
{ 

//no  interaction  defined  for  other  friendly  agents  at  this  time 
)//end  if /else(isSameAgentType) 

) / /end  sens  eFriendly ( ) 


//  Function:  senseFoodO 

//  Return  Val: 

//  Parameter:  npsAgent,  npsVec3f 

//  Purpose:  allow  agent  to  sense  a  known  food  source  and  remember  if 

//  it  is  the  closest  one 

// - - - 

void  Antelope: : sens eFoodt npsAgent  "agent,  npsVec3f  (.closestFoodPosition) 
{ 

if  (this->getDistance( "agent)  < 

this->getDistanceFromLocation{ closestFoodPosition) ) 

agent->getposition( closestFoodPosition) : 

}//end  if 


void  Antelope: rsenseEnemy (npsAgent  "agent,  float  (.closestEnemy) 

( 

//do  nothing  for  Enemies  at  this  time 
} //end  sensePredator 


//  Function:  aenseUnknown ( ) 

//  Return  Val: 

//  Parameter:  npsAgent,  int 

//  Purpose:  allow  agent  to  sense  an  unknown  agent  and  decide  how  to 

//  interact  with  it 

- - - - 

void  Antelope: :  aenseUnknown  (npsAgent  "agent,  float  tclosestUnknovn) 

( 

if { ! (strcmp (agent->getAgentType( > , "Grass" ) ) ) 

( 

this->addToFood  (agent-  >getAgentType  ( ) ) ; 

) 

else  if t i ( strcmp (agent->getAgentType( ), "Cheetah" )) ) 

( 

this->addToPredators (agent->getAgentiype ( ) ) ; 

) 

.  else 
{ 

this->addToUnknown  ( agent- >getAgentType  { )  i  ; 


] //end  sensePredator 


//  Function:  int  Antelope: : litterSize( ) 

//  Return  Val:  int  number  in  litter 
//  Parameter: 

//  Purpose:  return  a  random  number  of  antelope  in  a  litter 


int  Antelope : : litterSize ( ) 


if (npsAgent: imyRandO  >*  0.9) 
litter  ■  2; 


) //end  Antelope: : litterSize () 


) //end  senaeFood 


//  Function:  senseEnemyO 

//  Return  Val: 

//  Parameter:  npsAgent,  int 

//  Purpose:  allow  agent  to  sense  a  known  predator  and  decide  what  to 

//  next 


//  Function:  bool  Antelope: tdiesAsInf ant { ) 

//  Return  Val: 

//  Parameter: 

//  Purpose:  return  whether  infant  dies  or  not 


bool  Antelope: :diesAsInfant ( ) 


double  randNum  ■  npsAgent : :myRand( ) ; 


void  exitAntelopeAppf ) ; 


return  (randNum  <  INFANT_MORTALITY_RATE )  ; 
)//end  Antelope: :mortality() 


// - 

//  Function:  isKilled (Animal) 

//  Return  Val:  bool 
//  Parameter: 

//  Purposes  every  animal  must  be  able  to  determine  if  it  has  been 
//  killed  by  another  animal 

// . . . . 

bool  Antelope:: isKilled (npsAgent  * agent) 

C 

bool  killFlag  =  false; 

if (<this->getD*athIndieat©r()  «»  NOT_DEAD)  fct 
{ this ->getRelat ionship { tagent )  «-  PREDATOR) 

{this->getDistance (agent)  KILLED_RADIUS)  44 
(npsAgent: :myRand()  <  KILL_PROBABILITY) ) 

( 

cout«*testing  antelope  isKilled  by  “«agent.getName( )«endl; 
killFlag  -  true; 

) 

return  killFlag; 

) 

//end  file  Antelope. c 

//  ****** . . . •  * 

//  EXECUTIVE  SUMMARY 

//  Module  Name:  antelopeApp.h 

It 

//  Authors:  Mark  A.  Boyd  maboydflbigfoot.com 

//  Todd  A.  Gagnon  toddflgagnon.com 

ft 

//  Description:  The  application  class  for  the  Antelope  Module  -  used 
//  to  instantiate  Antelope  agents  when  requested 

ft 

//  March  1999  Master  Thesis 

//  *******•**•*•***••**************•*.*•*••***•*.•«••*...**•••**..... 

•ifndef  _antelopeAppJh 
•define  _antelopeApp_h 

// . **..**..* . ..*..*•.•* . ****** . .*••*.*. 

//  INCLUDES  AND  EXTERNS 

//  ********** . . . * . ***** . . 

•include  ‘antelope. h* 


//  ***** . *** . . . *' 

It  FUNCTION  PROTOTYPE  SPECIFICATIONS 
// . ***** . . . 

void  initAntelopeAppO; 


//  . . - 

//  INLINED  MEMBER  FUNCTIONS 
//  . . *******  ******•*•»< 

•end if  //  _AntelopeApp_Ji 


//  ****** . *** . **♦ . ****** . . 

If  EXECUTIVE  SUMMARY 

//  Module  Name:  antelopeApp.c 

// 

//  Authors;  Mark  A.  Boyd  maboydflbigfoot.com 

U  Todd  A.  Gagnon  toddflgagnon.com 

// 

//  Description:  The  application  class  for  the  Antelope  Module  -  used 
//  to  instantiate  Antelope  agents  when  requested 

// 

It  March  1999  Master  Thesis 

ft . ****** . ***** . ******* . .. . ...***.**..., 

//  . . . . — . . . 

//  INCLUDES  AND  EXTERNS 

//  . . ******* . . . 

•include  ‘antelopeApp.h' 

•include  "bbModule  .h" 

•include  ‘bbThread.h* 

•include  ‘bbCallback. h‘ 

•include  ‘npsXeyboard.h* 

•include  ‘bbEventResponse.h* 


•include  <math.h> 

•include  <GL/gl.h> 

//  ************************ . ************** 

//  DEFINES  t  FILE  SCOPE  VARIABLES 

tt  ******•***—**.*.•*......**......... ...... 

bbThread  ‘thread; 
static  int  numAntelope  -  0; 

//  ******* . . . . 

//  CODE 

//  . . . . 

void  initKeyboardModule ( ) ; 
void  initAntelopeFunc ( int  numAntelope); 
void  initBoidFuncIvoid  ‘object,  bbData  *data) ; 
char*  integerToString(int  inNum) ; 


void  initAntelopeAppO 
( 

int  numAntelope  =  0; 
initKeyboardModule ()  ; 


)//end  initAntelopeAppO 

void  exitNpsAgentApp ( ) 

( 

//do  nothing  for  now  -  should  remove  antelope  if  desired 
)//end  exitAntelopeApp! ) 

void  initKeyboardModule  O 
( 

void  getNumFunc (void  ‘object,  bbData  ‘data); 

npsKeyboard  ‘keyboard; 

bb Event Response  *  eventRespons  e ; 
bbCallback  ‘callback; 

//  get  the  keyboard  device 

keyboard  *  npsKeyboard: :getlnstance() ; 

//  set  up  get  number  of  antelope  by  using  the  *a*  key 
eventResponse  =  new  bbEventResponse (npsKeyboard: : KEY _^A  | 

npsKeyboard:  :UP_TRANS) ; 

callback  =  new  bbCallback (); 
eallback->setFunc(getNumFunc) : 
eventResponse->addCallbackLast (callback) ; 
keyboard->addEventResponse (eventResponse) ; 

} 

void  getNumFunc (void  ‘object,  bbData  *data) 

{ 

cout  «‘How  many  antelope  would  you  like  to  create?  •  «  endl; 
cin  »  numAntelope; 

initAntelopeFunc  (numAntelope) 

J 

void  initAntelopeFunc (int  numAntelope) 

l 

Antelope  *rry Ante  lope • 
npsVec3f  position; 

for  (int  i  ■  0;  i  <  numAntelope;  i++) 

{ 

char  name [64]; 
myAntelope  *  new  Antelope ( )  ; 
strcpy(name,  "Antelope*); 

strcat(name.  myAntelope->integerToString (myAntelope- >getIdNum( ))); 
myAnt  elope->setRandomPosit ion ( ) ; 

myAntelope->addTo  Friends  (myAntelope->getAgentType  ()); 
myAntelope- >setName( name) ; 

cout«‘name  *  *«name«‘type  “«myAntelope->getAgentType(  )«endl; 

) 

) 

//end  antelopeApp.c 


//  EXECUTIVE  SUMMARY 
//•Module  Name:  cheetah. h 

it 

//  Authors:  Mark  A.  Boyd  maboydflbigfoot.com 

//  Todd  A.  Gagnon  toddflgagnon.com 

// 

//  Description:  Definition  of  the  cheetah  agent  for  use  in  npsAgent 
It 

ft  March  199?  Master  Thesis 


•ifndef  _cheetah„h 
•define  _cheetah_h 

It  INCLUDES  AND  EXTERNS 

•include  * npsAgent Api.h* 

•include  ■ animal. h* 

//  DEFINES 

•define  INFANTJKORTALITY_RATE 

.80 

•define  REST_SENSING_RANGE 

50 

•define  REGULAR_SENSING  RANGE 

35 

•define  RUN_SENSING_RANGE 

20 

•define  AVOID_DISTANCE 

ISO 

•define  MAX_AGE 

3650 

•define  BEGIN_SEASON 

30 

•define  END_SEASON 

75 

•define  ONE_YEAR 

365 

•define  GESTATION_PERIOD 

60 

•define  ENERGY_BOO ST 

200 

•define  HIGH_BNERGY  LEVEL 

1200 

•define  STOP_HUNTING_LEVEL 

200 

•define  RESUME  HUNTING  LEVEL 

800 

•define  REGULAR_ENERGY_PENALTY 

4 

•define  RUN_ENERGY_PENALTY 

10 

•define  REST_ ENERGY  GAIN 

4 

•define  AVOID_RANGE 

10 

•define  KILLED.RADIUS 

0.10 

•define  KILLJPROBABILITY 

0.5 

It  FUNCTION  PROTOTYPE  SPECIFICATIONS 

class  Cheetah:  public  Animal { 

private: 

int  idNum; 

It 
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protected: 


.1C: 


//Constructor 

Cheetah (bbCallbackFunc  *callbaekFune) ; 

//Constructor 
Cheetah ( ) ; 

//Default  Destructor  -  does  nothing  at  this  time 
-CheetahO; 

//produce  a  newborn  Cheetah  from  a  male/female  pair 
Cheetah*  giveBirthUnt  motherSpeed,  int  father  Speed, 

int  motherGeneration,  npsVec3f  motherLocation) ; 

//get  cheetah  identification  number 
int  getldNumO; 

//can  the  Cheetah  mate 

bool  eanMate (Cheetah  *potentialMate) ; 

void  mate (Cheetah  *mate) ; 

//are  the  Cheetah  mate  eligible 

bool  mateEligible (Cheetah  *potentialMate) ; 


//  . . . . •*••**•*•**••*•• . ******** . 

//  EXECUTIVE  SUMMARY 
//  Module  Name:  cheetah. c 

// 

//  Authors:  Mark  A.  Boyd  maboydabigfoot.com 

//  Todd  A.  Gagnon  todd0gagnon.com 

// 

//  Description:  Implementation  of  the  cheetah  agent  for  use  in  npsAgent 

// 

//  March  1999  Master  Thesis 

//  * . . . . . * . ******* . **•***■ 

//  ************* . **** . ***** . ******************** . ***** 

//  INCLUDES  AMD  EXTERN S 

//  •***•*******••«•** . . . ******** . 

•include  " cheetah. h" 

•include  <stdio.h> 

•include  <iostream.h> 

•include  <stdlib.h> 

•include  <ctime> 

•include  <math.h> 

•include  <GL/gl.h> 


//test  to  see  if  cheetah  is  killed  by  another  agent 
bool  isKilled (npsAgent  t agent) ; 

//allow  cheetah  to  move  through  the  world 
void  updatePosition( int  time); 

//allow  the  cheeteh  to  aense  the  world 
void  sense(int  time); 

int  litterSizeO ; 
bool  diesAsInfent ( ) ; 


//** . . . . . ********************* 

//  DEFINES  AND  FILE  SCOPE  CONSTANTS 

//**** . . . . . . . ******* 

void  initGeomFunc ( void  ‘object,  bbData  *data) ; 

static  int  numCheetah  ■  0; 


// . 

//  CODE 
//******' 


//sense  various  types  of  agents 

void  sensePredators(npsAgent  ‘agent,  float  iclosestPredator) ; 
void  senseFriendly (npsAgent  ‘agent,  float  ^closest Friend, 
float  AclosestPar tner ) ; 

void  senseFood (npsAgent  ‘agent,  float  AclosestFoodPositioi^) ; 
void  sense Enemy ( npsAgent  *agent,  float  AelosestUnknown) ; 
void  senseUh)aiown (npsAgent  ‘agent,  float  i closest Unknown) ; 


// - 

//  Function:  Cheetah: : Cheetah ( ) 

//  Return  val:  None 
//  Parameter :  None 
//  Purpose:  Default  constructor 

// . - . . 

Cheetah : : Cheetah  ( ) 

: Animal ( initGeomFunc ) ,  idNum(numCheetah++) 

{ 

this->setAgentType ( "Cheetah* ) ? 


//  ********** . *********** 

u  INLINED  MEMBER  FUNCTIONS 
//  . . 

inline  int  Cheetah: :getIdNum() 
( 

return  idNum; 

) 


double  genderRand  ■  npsAgent: :myRand( ) 

if  (genderRand  <  0.5) 

this->setGender (MALE) ; 
else 
( 

this ->setGender (FEMALE) ; 
this->pregPtr  ■  new  Pregnancy; 


•endif  //  _cheetah_h 


//assign  a  random  max  speed  for  the  animal  between  5..  10 
int  maxSpeed  *  ayRand ( ) *12 ; 
if  (maxSpeed  <  7) 
maxSpeed  +«  7; 
this->setSpeed (maxSpeed) ; 

this->setEnergyLevel ( 1200 ) ; 

this->setAge { int (myRand { )  *  MAX_AGE) ) ; 
this->setMateAge(MATE_jAGE) ; 

this->setSensingRange  (REGULAR_SENSING_RANGE) ; 

) //end  Cheetah: : Cheetah { ) 


- - 

//  Function:  Cheetah: CheetahO 

//  Return  Val:  None 
//  Parameter:  None 
It  Purpose:  Default  destructor 

// - 

Cheetah: : -Cheetah  ( ) 

{ 

It  do  nothing  at  this  point 
) //end  Cheetah: : -CheetahO 


- - - - 

ft  Function:  initGeomFunc () 

//  Return  Val: 
ft  Parameter: 

(t  Purpose:  provides  OpenGL  calls  from  which  Babmoo  will  draw  cheetah 

- - 

void  initGeomFunc (void  ‘object,  bbData  *data) 

( 

GLfloat  coords [43 [3]  =  (  {  O.Of,  O.Of,  -0.6f).  //  front 
(-0.4f,  O.Of,  0.6f ) ,  //  back  left 

{  0.4f,  O.Of,  0.6f).  //  back  right 

(  O.Of,  0.4£,  0.6f )  //  top 

J; 

glShadeModel (GL_ FLAT) ; 
glBegin (GL_TRIANGLES) ; 

( 

glColor3f (O.Of,  O.Of.  O.Of);  //  bottom 
glVertex3fv(coords[0] ) ; 
glVertex3fv(coords[2] ) ; 
glVertex3fv(coords [1] ) ; 

glColor3f (O.Of,  O.Of,  O.Of);  //  left 
glVertex3fv (coords [0] ) ; 
glVertex3fv (coords [1] ) ; 
glVert ex3  f v ( coords [  3  ]  >  .* 

glColor3f (O.Of ,  O.Of.  O.Of);  //  right 
glVertex3fv (coords [0] ) ; 
glVertex3fv (coords [33 ) ; 
givertex3fv (coords [2 1 ) ; 


glColor3f (O.Of ,  O.Of,  O.Of);  //  back 
g lVertex3fV( coords [1J ) ; 
glVertex3£v( coords [2] )  j 
glVertex3f v ( coords [  3 ) )  ; 

> 

glEnd ( ) ; 

glShadeModel ( GL_SMOOTH ) ; 

} //end  Cheetah: : initGeomFunc ( 1 


// - 

//Function:  Cheetah: :giveBirth  () 

//Return  Val:  Cheetah 

//Parameter:  male  speed,  female  speed 

//Purpose:  make  a  new  Cheetah  with  speed  of  one  of  it's  parents 


Cheetah*  Cheetah: :giveBirth[ int  motherSpeed,  int  fatherSpeed, 

int  motherGeneration,  npsVec3£  motherLocation) 


t 

int  nevSpeed; 


char  name [64 ]; 


Cheetah  ‘newBorn; 


if (npsAgent: :myRand()  <  0.5) 
nevSpeed  «  motherSpeed; 
else 

newSpeed  *  fatherSpeed; 
newBorn  ■  new  CheetahO; 


str  cpy ( name ,  " Cheetah " ) ; 

strcat  (name,  this->integerToString (newBom->getIdNum( ) ) )  ; 
newBorn->addToFriends  (newBom->getAgentType  ( ) ) ; 
newBom->setName  (name)  ; 

//set  values  of  newborn  based  on  parents*  information 

nevBom->set Speed  (nevSpeed)  ; 

new8om->setPosition (motherLocation)  ; 
newBorn->setGeneration (motherGeneration  +  1) ; 

return  newBorn; 

) //end  cheetah: :giveBirth() 


// - - - - - 

//  Function:  bool  Cheetah: :canMate{ ) 

//  Return  Val: 

//  Parameter: 

//  Purpose:  return  whether  Cheetah  can  mate  or  not 

- - 

bool  Cheetah: :canMate( Cheetah  *potentialMate) 

( 

bool  mateFlag  «  false; 

if ( (this->getGender ()  MALE)  && 

(potentialMate->getGender ( )  *=  FEMALE) ) 


mateFlag  «  ( ( ! (potentialMate->isPregnant ( ) ) )  kk 
(this->getNextAetion ( )  ■»  MATE]  && 
(potentialMate->getNextAction()  «*  MATE)  kk 
( this ->getDis tanee( 'potent ialMate)  <«=  MATB_DI STANCE) )  j 

) 

else  if t (this->getGender ()  **  FEMALE)  kk 

(potentialMate->getGender ( )  ■>»  MALE)) 

( 

mateFlag  «  ( ( ! (this->isPregnant ( ) ) )  kk 

{ this->getNextAction  { )  »«  MATE)  kk 
(potentialMate->getNextAction ( )  ««  MATE)  kk 
( this->getDiatanee ( 'potentialMate)  <»  MATE_DI STANCE) ) ; 
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mate->aetPregnant(true) ; 

mate->pregPtr->partnerId  *  this->getIdNum( ) ; 
mate->pregPtr->maleSpeed  *  this->getSpeed ( ) ; 
mate->pregPtr->gestationTime  =»  0; 


this->setPregnant (true) ; 

this->pregPtr->partnerld  *  mate->getIdNum ( ) ; 
this - >pregPtr- >ma leSpeed  ■  mate->getSpeed{ ) ; 
this->pregPtr->gestationTime  *  0; 


return  mateFlag; 

}//end  Cheetah: :canMate( ) 


]//end  function  Cheetah: :mate () 


//  Function;  bool  Cheetah : iraateBligible ( ) 

//  Return  Val: 

//  Parameter; 

II  Purpose:  return  whether  Cheetah  is  eligible  to  mate 

// . . . . . 

bool  Cheetah; tmateEligible (Cheetah  'potentialMate) 

( 

bool  mateEligibleFlag  *  false; 

if { (this->getGender ( )  ■»  MALE)  kk 

(potentialMate->getGender ()  ■«  FEMALE)) 

{ 

mateEligibleFlag  -  ( ! (potentialMate->isPregnant ( ) >  kk 
(potentialHate->isInSeason() }  kk 
(potentialHate->getAge()  >»  MATE JKGE) 

( this->yetAge ( )  >-  MATE_AGE) ) ; 

) 

else  if ( (this->getGender ( )  ■■  FEMALE)  kk 

(potentialMate->getGender()  ■«  MALE)) 

{ 

mateEligibleFlag  »  ( ! (this->i»Pregnant ( ) )  kk 
( this ->is InSeason O )  kk 
(potent ialMate->getAge ( )  >»  MATE_RGE)  kk 
(this->getAge()  >-  MATE _AGE ) ) ; 


return  mateEligibleFlag; 
)//end  Cheetah; :mateEligible() 


//Function:  Cheetah: :mate  {) 

//Return  Val:  true  /  false 
//Parameter:  mate 

//Purpose:  begin  pregnancy  once  two  cheetah  mate 

- - 

void  Cheetah:  :mate (Cheetah  'mate) 

{ 

if  (this->getGender ()  *«  MALE) 


//  Function:  updatePositionf ) 

//  Return  Val: 

//  Parameters 

//  Purpose:  allow  the  cheetah  to  update  position 

// - - 

void  Cheetah: :updatePosition< int  time) 

{ 

/  /check  to  make  sure  still  has  enough  energy  to  keep  hunting 
if ( this->getEnergyLevel ( )  <  STOP_HUNTING_LEVEL ) 

{ 

this->setRest (true) ; 

this ->setNextAct ion  (NOTHING) ; 

) //end  if 


switchf  this->getNextAction ( ) ) 

( 

case  MATE  : 

{ 

this- >setSpeedOfNextMove( REGULAR) ; 

this- >setEnergyLevel  (this- >getEnergyLevel { )  -  REGULAR_ENERGY_PENALTY) ; 

this ->moveTo( this- >getMoveToLocat ion () ) ; 

break; 

) 

case  NOTHING  s 
( 

if (this->isResting()  ||  (rand()  <  RAND_MAX/2)} 

( 

this ->setSpeedOfNextMove( REST)  ; 

this->setEnergyL«vel (this->getEnergyLevel ( )  ♦  REST_ENERGY_GAIN) ; 

) 

else 

( 

this->set$peedOfNextMove (REGULAR) ; 

this->setEnergyLevel (this~>getEnergyLevel ( )  -  REGULAR_ENERGY_PENALTY) ; 

) 

this->move( ) ; 
break; 


this->setSpeedOfNextMove(RUN) ? 

this->setEnergyLevel (this->getEnergyLevel ( )  -  RUN_ENERGY_PENALTY ) ; 

this->moveTo(this->getMoveToLocation( ) ) ; 

break; 


cout<< “newborn  cheetah*«endl; 

J 

if  (babyCheetah->getGender()  **  FEMALE) 
babyCheetah->pregPtr  *  new  Pregnancy; 
)//end  for  (ix)  -  create  litter  of  size  litter 


this->setSpeedOfNextMove (REGULAR) ; 

this->setEnergyLevel (this->getEnergyLevel ( )  -  REGULAR_ENERGY__PENALTY) ; 

this->aoveTo(this->getMoveToLocation( ) ) ; 

break; 

) 

case  AVOID  : 

( 

this->setspeedOf NextMove (REGULAR) 

th i s->s etEnergyLeve 1 ( this->getEnergyLevel ( )  -  REGULAR_ENERGY_PENALTY ) ; 

this ->move From ( this->getMoveFroraLocation ( ) ) ; 

break; 

) 

ease  FLEE  s 

C 

this->setSpeedOfNextHove (RUN) ; 

this->setEnergyLevel (this->getEnergyLevel ( )  -  RUN_ENERGY_PENALTY ) ; 

this->moveFrom(this->getMoveFromLocation( ) ) ; 

break; 

) 

default  :  //CHASE 

( 

this->setSpeedOfNextMove(RUN) ; 

thi s- >setEnergyLeve 1 { this- >getEnergyLevel ( )  -  RUN_ENERGY_ PENALTY ) ; 

this->«oveTo ( this->getMoveTo Location ( ) ) ; 

break; 

) 

)//end  switch  getNextAction ( ) 


this->set Pregnant ( false) ; 

)  / / end  if  pregancy  gestation  time  >  GESTATION_TIME 
else 
{ 

this->pregPtr->gestationTime++ ; 

)//end  else 

}//end  if  aix->isPregnant( ) 


this->grow01der ( ) ; 

//check  age  and  if  over  MAX.AGE  then  set  deathlndicator  to  OLD_AGE 
if (this->getAge()  «  MAX_AGE) 

( 

this ->setDeathIndicator (OLD-AGE) ; 


//Last  thing  we  do  is  check  to  make  sure  the  cheetah  didn’t  die  two 
//time  steps  ago.  if  so  take  out  of  world  otherwise  increment  counter 
//this  allows  the  other  animals  to  sense  this  one  and  learn  how  it  died 

if (<this->getDeathIndicator()  !■  N0TJ3EAD)  kk  (this->getDeathCounter ( )  <  2)) 

this->setDeathCounter <  this->getDeathCounter ( )  ♦  1 ) ; 

}//end  if  getDeathlndieator ( ) 

else  if ( (this->getDeathIndicator()  !=  N0T_DEAD)  kk  (this->getDeathCounter {) 


thi s - >s  e  tRemo ve ( ) ; 

]//end  if  else  getDeathlndieator () 


if (this->isPregnant( ) ) 

( 

if  (this->pregPtr->gestationTime  »=>  GESTATI0N_PERI0D) 

( 

inf  litter  *  this->litterSize{) ; 
npsVee3f  tempLocation; 
this->getPosition( temp Location) ; 

Cheetah  * ba byCheetah ; 

for  (int  ix  »  1;  ix  <■  litter;  ix+  +  ) 

( 

^  babyCheetah  =  this->giveBirth(this->getSpeed(),  this->pregPtr->maleSpee 

this->getGeneration ( ) ,  tempLocation] ; 

if (babyCheetah->diesAsInf ant ( ) ) 

( 

babyCheetah->set Deathlndicator (INFANT_HORTALITY) ; 


)//end  updatePositionO 


//  Function:  sensed 

//  Return  Val: 

//  Parameter: 

//  Purpose:  allow  the  cheetah  to  sense  environment  and  decide  which 

H  action  to  take  next 

// . . - . - . . 

void  Cheetah: : sense (int  time) / /npsAgent  'sensedAgent) 

( 

if ( this->isResting ( ) ) 

< 

if (this->getEnergyLevel()  >  RESUME_HUNTING_LEVEL) 
this->setRest(false) ; 

) 


else 
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else 


senseEnemy( sensedAgent,  closestEnemy) ; 
break; 


if ( { C im«%ONE_YEAR  >  8EGIN_SEASON)  &&  ( t ime  % ONE_YEAR  <  END_SEASON) ) 
this->setInSeason(true> : 
else 

this ->set InSeason ( false) ,- 


int  currant Sens ingRange  ■  0; 


float  closestPartner 

>  100, 

closestFriend 

-  100, 

closestQiemy 

-  100, 

closes tUnknovn 

=  100, 

closestFood 

■  100, 

closes tPredator 

»  100; 

bool  sensedFood 

■  false; 

npsVec3  f  moveToLocation; 

switch ( this->get£peedOfNextMove ( } ) 

{ 

case  REST  : 

{ 

CUrrentSensingRange  ■  REST_S£NSING_RANGE ; 
break; 

) 

case  REGULAR  : 

C 

CUrrentSensingRange  m  REGULAR_SENSING_RANGE;  , 
break; 

) 

default: //case  RUN 

{ 

CUrrentSensingRange  *  RUN_SENSTNG_ RANGE ; 
break; 

) 

}//end  switch 

this->setNextAction (NOTHING) ;  //reset  this  for  tracking 

int  numAgents  -  bbListedClass<npsAgent>: :getNumObjects ( ) ; 

for  (int  j  «  0;  j  <  numAgents;  j++) 

( 

npsAgent  ‘sensedAgent  -  bbListedClass<npsAgent>: :getObject ( j ) ; 

if  ( (this->getDistance( ‘sensedAgent)  <*  CUrrentSensingRange)  tt 
(this->getName{ }  !■  sensedAgent->getName ( ) ) ) 


switch  (this->getRelationship( sensedAgent) ) 

( 

case  PREDATOR: 

( 

sense Predators (aensedAgent,  closest Predator ) ; 
break; 


) 

case  ENEMY : 


( 


npsVec3f  moveToLocat ion ,  jnoveFromLoeation; 

if  (this->isSameAgentType (agent) ) 

{ 

if  ( this->canMate ( (Cheetah  •) agent)) 

( 

this->mate( (Cheetah  •) agent);  * 

this->setNextAction (NOTHING) ; 

)//end  if  canMateO 

else  if ( [this->mateEligible( (Cheetah  *)agent))  fcfc 
(distanceToAgent  <  closestPartner) ) 

( 

closestPartner  »  distanceToAgent; 
agent->getPosition (moveToLocation) ; 
this->setHoveToLo cation (moveToLocation) ; 
this->setNextAetion  (HATE)  ; 

)//end  else  if  mateEligiblefteix) 

else  if ((this->getNextAction()  !*  KATE)  && 

(this->getNextAction( )  !■  CHASE)) 

( 

if ( (distanceToAgent  <  closestToAvoid)  &£ 

* (distanceToAgent  <  AVOID_RANGE) ) 
closestToAvoid  *  distanceToAgent; 
agent->getPosition(moveFromLocation) ; 
this- >  se tMoveFromLo  cation (moveFromLocation) ; 
this->setNextAction (AVOID) ; 

}//end  else  if  ((MATE) 

)//end  if  isSameAgent ( ) 
else 
( 

//no  interaction  defined  for  other  friendly  agents  at  this  time 
)//end  i f / el se ( isSameAgentType ) 

)//end  senseFriendly ( ) 


// - 

//  Function:  senseFoodf) 

//  Return  Val: 

//  Parameter:  npsAgent,  npsVec3f 

//  Purpose:  allow  agent  to  sense  a  known  food  aource  and  remember  if 

//  it  is  the  closest  one 

// . . . . 

void  Cheetah: : senseFoodf npsAgent  ‘agent,  float  fcclosestFood) 

{ 

npsVec3f  moveToLocation; 

if ( (this->getNextAction()  !=  MATE)  ti  ! (this->isResting ( ) )  it 
(this-*getEnergyLevel()  <  HXGH_ENERGY_LEVEL) ) 

{ 

if (this->getDistanee(* agent)  <  closestFood) 

( 

if (agent->isKilled ( -this) ) 

( 

this->setEnergyLevel (this->getEnergyLevel( )  ♦  ENEP.GY_BOOST) ; 
this->setNextAction (NOTHING)  ; 
cout«  “Antelope  killed  “«endl; 

)//end  if  canKillt) 


) 

case  FRIENDLY: 

( 

if  { ( this- >getNext  Act  ion  ( )  !«=  FLEE)  || 

( this ->getNext Action ()  !=  MATE) ) 

senseFriendly (sensedAgent,  closestFriend,  closestPartner) 
break ; 

) 

ease  FOOD: 

{ 

if  { (this->getNextAction()  !*  FI>EE)  |} 

(this->getNextAction()  !*MATE)> 
senseFood (aensedAgent,  closestFood); 
break; 

) 

default:  //case  UNKNOWN: 

( 

senseUnknown ( sensedAgent ,  elosestUnknown) ; 
break; 

) 

)//end  switch 

}//end  if  (distanceToAgent.,.) 

)//end  for  ( j<numAgents) 

) //end  if else ( isResting ) 

)//end  Cheetah: : sense () 


// . - . . . - . 

//  Function:  • sensePredators { ) 

//  Return  Val: 

//  Parameter:  npsAgent,  float 

//  Purpose:  allow  agent  to  sense  a  known  predator  and  decide  what  to 

//  next 

// - - 

void  Cheetah: : sensePredators (npsAgent  ‘agent,  float  tclosestPredator) 

{ 

//nothing  defined  for  predators  at  this  time 
)//end  sensePredator 


- - 

//  Function:  senseFriendly ( ) 

//  Return  Val: 

//  Parameter:  npsAgent,  float,  float 

//  Purpose:  allow  agent  to  sense  a  known  predator  and  decide  what  to 

//  next 


void  Cheetah: : senseFriendly (npsAgent  ‘agent,  float  RclosestToAvoid, 
float  selosestPartner) 


( 

float  distanceToAgent  ■  this->getDistance (“agent); 


else 

{ 

if (this->getDistance( “agent]  <  closestFood) 

( 

closestFood  «  this->getDistance ( ‘agent ) ; 
agent ->ge tPosi tion ( moveToLocat ion ) ; 
this->setKoveToLocat ion (moveToLocation ) ; 
this->setNextAction (CHASE) : 

) //end  if  getDistanee 

}//end  if  else  agent->isKilled() 

)//end  if  eix->getX() 

)//end  if  { (foundPartner) 

}//end  senseFood 


// - - - 

//  Function:  senseEnemyO 
//  Return  Val: 

//  Parameter:  npsAgent,  int 

//  Purpose:  allow  agent  to  sense  a  known  predator  and  decide  what  to 

//  next 

// - - - 

void  Cheetah: : sens eEnemy (npsAgent  ‘agent,  float  fcclosestEnemy) 

( 

//do  nothing  for  Enemies  at  this  time 
}//end  sensePredator 


// - 

//  Function:  senseUnknown ( ) 

//  Return  Val: 

//  Parameter:  npsAgent,  int 

//  Purpose:  allow  agent  to  sense  an  unknown  agent  and  decide  how  to 

//  interact  with  it 

// - 

void  Cheetah: : senseUnknown (npsAgent  ‘agent,  float  SclosestUnknown) 

{ 

if ( S (atrcmp ( agent ->getAgentType ( ) , “Antelope") ) ) 

( 

this->addToFood ( agent ->getAgentType ( ) ) ; 

) 

else 

( 

//do  nothing  at  this  time 

) 

)//end  sensePredator 
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// . . . . . 

//  Function:  int  litterSizel) 

//  Return  Val:  int  number  in  litter 
//  Parameter: 

//  Purpose:  return  a  random  number  of  cheetah  in  a  litter 

ft - - - 


int  Cheetah: slitterSi re O 


)//end  Cheetah: :isKilled() 


( 

int  litter  *  1; 

double  randNum  *  npsAgent : :myRand ( ) ; 

if  (randNum  <■=  0.05) 
litter  »  1; 

else  if ((randNun  >  0.05)  at  (randNum  <=  0.15)) 
litter  *  2; 

else  if ({randNun  >  0.15)  (randNun  <*  0.3)) 
litter  -  3; 

else  if ((randNun  >  0.3)  &&  (randNun  <■  0.7)) 
litter  ■  4; 

else  iff (randNun  >  0.7)  kk  (randNun  <=  0.85)) 
litter  «  5; 

elae  if ((randNun  >  0.85)  kk  (randNun  <«  0.95)) 
litter  *  6; 

else  //if  randNun  >  .95 
litter  -  7; 

return  litter; 

)//end  Cheetah: :litterSize() 


// - 

//  Function:  bool  Cheetah: tdiesAsXnf ant ( ) 

//  Return  Val: 

//  Parameter: 

//  Purpose:  return  whether  infant  dies  or  not 

// - - - . - . 

bool  Cheetah: tdiesAsInf ant () 

( 

return  (npsAgent: : my Rand ( )  <  INFANT_MORTALITY_RATE) ; 
)//end  Cheetah: : nor talityO 


- - 

//  Function:  isKilled (agent) 

//  Return  Val:  bool 
//  Parameter: 

//  Purpose:  every  animal  oust  be  able  to  determine  if  it  can  kill 

//  another  animal 

- - 

bool  Cheetah: : isKilled (npsAgent  tagent) 

( 

bool  killFlag  -  false; 

if ( (this->getDeathIndicator()  ■■  NOT_DEAD)  kk 

( this - >getRelationship ( iagent )  -«  PREDATOR)  kk 
( this ->getDistance ( agent )  <«  KILLED_RADIUS)  kk 
(npsAgent ::myRand()  <  KILL.PROBABILITY) ) 

killFlag  *  true; 

return  killFlag 


//end  file  Cheetah. c 


//  . . . ***** . *******. 

//  EXECUTIVE  SUMMARY 
//  Module  Name:  cheetahApp.h 

// 

//  Authors:  Mark  A.  Boyd  maboyd8bigfoot.com 

//  Todd  A.  Gagnon  todd9gagnon.com 

// 

//  Description:  The  application  class  for  the  Cheetah  Module  -  used 
//  to  instantiate  Cheetah  agents  when  requested 

// 

//  March  1999  Master  Thesis 

//  **************** . * . . . ****** . . 

•  ifndef  _cheetahApp _h 
♦define  _cheetahApp_h 

//  . . . ............... . . . , 

//  INCLUDES  AND  EXTERNS 

//  ******** . . . . . ... 

♦include  ’cheetah. h* 

//  . . . . . . . . . 

//  FUNCTION  PROTOTYPE  SPECIFICATIONS 
// 

void  initCheetahApp ( ) ; 
void  exiCCheetahApp ( ) ; 

♦endif  //  _CheetahApp_h 


//  ********** . . . . . . . . . . 

//  EXECUTIVE  SUMMARY 

//  Module  Name:  cheetahApp.c 

// 

//  Authors:  Mark  A.  Boyd  maboyd9bigfoot.com 

//  Todd  A.  Gagnon  todd9gagnon.com 

// 

//  Description:  The  application  class  for  the  Cheetah  Module  -  used 
//  to  instantiate  Cheetah  agents  when  requested 

// 

//  March  1999  Master  Thesis 

//  . . . . . . . 

. . ****** . . . . 

//  INCLUDES  AND  EXTERNS 
//  ***** . ***** . . 

♦include  “cheetahApp.h* 

♦include  “bbModule.h* 

♦include  “bbThread.h* 

♦include  “bbCallback.h* 

♦include  *npsKeyboard.h* 


♦include  "bbEventResponse. h* 

♦include  <math.h> 

♦include  <GL/gl.h> 

//  . . ********* 

//  DEFINES  k  FILE  SCOPE  VARIABLES 

//  . . 

bbThread  * thread; 

static  int  numCheetah  ■  0; 

void  initKeyboardModule ( ) ; 

void  initCheetahFunc ( int  numCheetah); 

void  initBoidFunc (void  “object,  bbData  *data) ; 

char*  integerToString(int  inNum)  ; 

//  ************** . . 

//  CODE 

. . ******* . . . . 


void  initCheetahApp () 

( 

initKeyboardModule ( ) ; 

} 


void  exitNpsAgentApp ( ) 
( 


void  initKeyboardModule ( ) 

( 

void  getNumFUne(void  “object.  bbData  “data); 

npsKeyboard  “keyboard ; 

bbEventResponse  ’event Response; 
bbCallback  -callback; 

//  get  the  keyboard  device 
keyboard  =  npsKeyboard: :getlnstance() ; 

//  set  up  get  madder  of  cheetah  by  using  the  *a*  key 
eventResponse  =  new  bbEventResponse (npsKeyboard : :KEY_C  J 

npsKeyboard: :UP_TRANS) ; 

callback  *  new  bbCallbaek( ) ; 
callback->setFunc(getNumFunc) ; 
eventResponse- >addCallbackLast ( callback) ; 
keyboard->addEventResponse(eventResponse) ; 


void  getNumFune (void  “object.  bbData  *data) 

I 

cout  «*How  many  cheetah  would  you  like  to  create?  *  «  endl; 
cin  »  numCheetah; 


ACE_EW^RT_SINGLETON_DECLARATION (bbLiatedClass<Plant>) j 
•else 

ACE_IHPORT_SINGLETON_DECLARATION  (bbSaf  eClass<Plant> )  ; 
ACE_IMPORT_SINGLETON_DECLARATION{bbListedClass<Plant>) ; 
•end if 


//  FUNCTION  PROTOTYPE  SPECIFICATIONS 


class  AGENT_API  Plant:  public  npsAgent ( 


//nothing  specific  for  plants  was  implemented  for  this 
//project.  Attributes  and  behaviors  much  like  those  in 
//the  Animal  class  could  be  implemented  here. 


//Constructor 

Plant (bbCallbackFune  ‘callbackFunc) ; 


//Default  Destructor  -  does  nothing  at  this  time 
-Plant ( ) ; 

//update  position  or  sense  any  other  agents 
virtual  void  updatePosition(int  time)  -  0; 
virtual  void  aense(int  time)  ■  0; 

//check  for  being  killed 

virtual  bool  isKilled (npsAgent  (agent)  *  0; 


•endif  //  _Plant 


//  EXECUTIVE  SUMMARY 
//  Module  Name:  plant. C 
// 

//  Authors:  Mark  A.  Boyd  maboydBbigfoot.com 

//  Todd  A.  Gagnon  eoddBgagnon.com 

// 

//  Description:  Definition  of  the  Plant  agent  for  use  in  npsAgent 
// 

//  March  1999  Master  Thesis 


•define  _plant_c 


//  INCLUDES  AND  EXTERNS 

//  *****•*•*•*••**•*•*•***’ 


•include  'Plant. h‘ 


//  DEFINES  AND  FILE  SCOPE  CONSTANTS 


static  int  numPlant  »  0; 


//  Function:  Plant: : Plant 0 

//  Return  Val:  None 
//  Parameter:  None 
//  Purpose:  Default  constructor 


Plant: :Plant  (bbCallbackFune  *_callbackFunc) 
: npsAgent (_callbackFunc  ) 

( 

//nothing  to  construct  at  this  time 
)//end  Plant :: Plant ( ) 


//  Function:  Plant: : -Plant ( ) 

//  Return  Val:  None 
//  Parameter:  None 
//  purpose;  Default  destructor 


Plant: : -Plant  () 

( 

//do  nothing  at  this  point 
)//end  Plant ::-Plsnt() 

//end  file  Plant. c 


//  EXECUTIVE  SUMMARY 
//  Module  Name:  grass. h 
// 

//  Authors:  Mark  A.  Boyd  maboyd9bigfoot.com 

//  Todd  A.  Gagnon  todd9gagnon.com 

// 

//  Description;  Definition  of  the  grass  agent  for  use  in  npsAgent 
// 

//  March  1999  Master  Thesis 


•ifndef  _grass_h 
•define  _grass_h 


//  INCLUDES  AND  EXTERNS 


•include  ‘npsAgentApi  ,h‘ 
•include  ‘Plant .h’ 


// . . . 

//  DEFINES 

tl  *“**“*****““*»“*•“““***““' 

const  float  PATCHES IZE  «  6.  Of; 

// 

//  FUNCTION  PROTOTYPE  SPECIFICATIONS 

tl  . . . 

class  Grass:  public  Plant ( 

private : 

int  idNum; 

protected: 


public: 

/ /Constructor 

Grass (bbCallbackFune  ‘callbackFunc) ; 

//Constructor 
Grass ( ) ; 


//Default  Destructor  -  does  nothing  at  this  time 
-Grass ( ) ; 

int  getldNum ( ) ; 

//will  not  update  position  or  sense  any  other  agents 

void  updatePositionJint  time); 

void  sense(int  time) ; 

bool  isKilled (npsAgent  (agent); 

); 


//  ******** . . . . 

//  INLINED  MEMBER  FUNCTIONS 

//  *********** . . . 

inline  Grass: : get IdNum { ) 

( 

return (idNum) ; 

) 

inline  void  Grass: mpdatePosit ion (int  time) C) 
inline  void  Grass: : sense (int  time) { ) 

inline  bool  Grass: : isKilled (npsAgent  (agent) (return  false;) 
•endif  //  _grass_h 


//  ***************************** . . . *********** 

//  EXECUTIVE  SUMMARY 
//  Module  Name:  grass.c 
It 

//  Authors:  Mark  A.  Boyd  maboyd9bigfoot.com 

//  Todd  A.  Gagnon  todd9gagnon.com 

// 

//  Description:  Definition  of  the  grass  agent  for  use  in  npsAgent 

n 

It  March  1999  Master  Thesis 

. . . . . . 

//  ************* . . . . . *********** 

//  INCLUDES  AND  EXTERNS 

it  ********* . «.****************.**********•***.****»*•***•*********** 

•include  ‘grass. h* 

•include  <GL/gl.h> 

//**** . . . ****************** 

//  DEFINES  AND  FILE  SCOPE  CONSTANTS 

void  initGeomFunc (void  'object,  bbData  *data); 
static  int  numGrass  *=  Oj 

// . - . . 

//Function:  Grass: : Grass () 

//  Return  Val:  None 
//  Parameter:  None 
//  Purpose:  Default  constructor 

// - - - 

Grass:: Grass  () 

: Plant ( initGeomFunc) ,  idNum (numGrass* ♦ > 

{ 

this->setAgentType ( ‘Grass* ) j 
)//end  Grass: :Grass() 

// - - - - . . 

//  Function:  Grass: : -Grass ( ) 

tl  Return  Val:  None 
//  Parameter:  None 
//  Purpose:  Default  destructor 

// - — - - 

Grass: : -Grass  () 

( 

//do  nothing  at  this  point 
}//end  Grass :: -Grass ( ) 

It - - - 

//  Function:  initGeomFunc ( ) 

//  Return  val: 

//  Parameter: 

//  Purpose:  provides  OpenGL  calls  from  which  Babmoo  will  draw  the  grass 

// - - - 

void  initGeomFunc (void  "object,  bbData  ‘data) 

{ 


GLfloat  coords (4) [3)  «  (  {  -PATCH_SIZE,  -0.5£,  - PATCHES I ZE) , //  front 


{  PATCH_SIZE,  -Q.5f.-PATCH_SIZE).  //  back  left 

t  PATCH_SIZE ,  -O.Sf,  PATCI^SIZE),  //  back  right 

{ -PATCH_SIZE,  -O.Sf,  PATCH_SIZE)  //  top 
); 

glShadeHodel  (GL_FLAT)  ; 
glBegin  (GL_POLYGON)  ,* 

C 

glColor3f (O.Sf,  0.7 t.  O.Sf);  //bottom 
glVertex3£v (coords [0] ) ; 
glVertex3f v ( coords ( 1 J ) ; 
glVertex3£v (coords (2) ) ; 
g lVertex3  f v ( coords  C  3 ) ) ; 

) 

glEndO; 

glShadeKodel (GL_SMOOTH) ; 

} 

//end  file  Grass. c 


//  . . . ... 

//  EXECUTIVE  SUMMARY 
//  Module  Name:  grassApp.h 
// 

//  Authors:  Mark  A-  Boyd  maboyd9bigfoot.com 

//  Todd  A.  Gagnon  todd9gagnon.com 

// 

//  Description:  Aplication  file  for  the  grass  agent  for  use  in  npsAgent  - 
//  used  to  instantiate  grass  agents 

// 

//  March  1999  Master  Thesis 

•ifndef  _grassApp_h 
•define  _grassApp _h 

//  •***•*•****.*• . ****** . . . . . . 

//  INCLUDES  AND  EXTERNS 

//  . . . 

•include  “grass. h" 

//  •*•**************••*•*•***•**•*.****..•.*•...**..*••••*..*.•**•. . * 

U  FUNCTION  PROTOTYPE  SPECIFICATIONS 
// 

void  initGrassApp ( ) ; 
void  exitGrassApp ( ) ; 

•endif  //  _GrassApp_h 


//  *****•********•..*•*••*•*••*.**.*.....*.*•**., 
//  EXECUTIVE  SUMMARY 
//  Module  Name:  grassApp.c 
// 

//  Authors:  Mark  A.  Boyd  maboyd9bigfoot.com 

//  Todd  A.  Gagnon  todd9gagnon.com 

// 


npsKeyboard : :UP_TRANS) ; 

callback  =  new  bbCallback ( ) ; 
callback->setFunc(getNumFunc) ; 
eventResponse- >addCallbackLast (callback)  ; 
keyboard->addEventResponse { eventResponse) ; 

}//end  inltKeyboardModule ( ) 


void  getNu»Func(void  “object,  bbData  “data) 

{ 

cout  «*Hov  many  grass  agents  would  you  like  to  create?  -  «  endl; 
cin  »  numGrass; 

initGrassFunc (numGrass) ; 

>//end  getNumFuncO 


//  Description:  Aplication  file  for  the  grass  agent  for  use  in  npsAgent  - 
//  used  to  instantiate  grass  agents 

// 

//  March  1999  Master  Thesis 

//  ******** . . . * . . . . . . 

//  * . . . . . . . . 

//  INCLUDES  AND  EXTERNS 

//  ****** . . . . 

•include  “grassApp.h* 

•include  “bbModule.h* 

•include  “bbThread.h* 

•include  “bbCallbaek.h" 

•include  “npsKeyboard  ,h“ 

•include  “bbEventResponse .h“ 

•include  <math.h> 
tinclude  <GL/gl.h> 

//  . . . . . 

//  DEFINES  &  FILE  SCOPE  VARIABLES 

. . . . . . . . 

static  int  numGrass  *  0; 

void  initKeyboardModule ( ) ; 
void  initGrassFunc(int  numGrass); 

//  . . . . 

//  CODE 

//  . . 

void  initGrassApp ( ) 

( 

int  numGrass  *  0; 

initKeyboardModule ( )  ; 

) / /end  initGrassApp ( ) 


void  exitNpsAgentAppO 

{ 

//do  nothing  for  now 
) //end  exitGrassApp ( ) 


void  initKeyboardModule ( > 

< 

void  getNumFunc (void  *object,  bbData  *data) ; 

npsKeyboard  ‘keyboard; 

bbEventResponse  ‘eventResponse; 
bbCallback  ‘callback; 

//  get  the  keyboard  device 

keyboard  «  npsKeyboard: :getlnstance( > ; 

//  set  up  get  number  of  grass  by  using  the  'a1  key 
eventResponse  *  new  bbEventResponse ( npsKeyboard : :KEY_G  | 


) //end  initGrassFunc ( ) 
//end  file  grassApp.c 


void  initGrassFunc (int  numGrass) 

( 

Grass  *myGrass ; 
npsVec3f  position; 

float  sqrFt Total  •  (MAX_X-KIN_X) * (MAX_Z-MIN_Z ) , 

sgrFtper Patch  *  s«jrFtTotal /numGrass, 

xOffset  ■  sqrt (sgrFtPerPatch) , 

ZOffset  ■  XOffset; 

int  currentX  -  MIN^X, 
currentZ  *  MIN_Z; 


for  (int  i  »  0;  i  <  numGrass;  i**) 

( 

char  name(64] ; 

if ( (currentX+xOf fset)  <•  MAX_X) 
currentX  .e  xOffset; 
else 
{ 

currentX  =  MIN_X  +  xOffset; 
if ((currentz+zoffset)  <*  MAX_Z) 
currentZ  *.  zOffset ; 
else 

currentZ  -  MIN_z  .  zOffset; 

} 

myGrass  «  new  Grass ( ) ; 

Strcpy(name,  “Grass*); 

strcat (name,  myGrass->integerToString ( myGrass ->getIdNum( })); 
myGrass->setRandomPosition( ) ; 
myGrass->setName(name) ; 


myGrass->getPosit ion (position) ; 

cout«“grass  “«myGrass->getIdNum()«“in  position  *«position«endl; 


APPENDIX  B:  GLOSSARY 


•  adaptability 

-  Modify  rules  of  behavior  and  strategies  based  on  interactions. 

•  agent 

-  Software  object  with  internal  states  and  a  set  of  associated  behaviors. 

•  Bamboo 

-  Cross  platform,  dynamically  extensible,  virtual  environment  toolkit. 

•  emergent  behavior 

-  Behavior  patterns  that  emerge  from  the  interactions  of  agents  but  are  not  inherent 
to  the  agents  themselves. 

•  dynamic  extensibility 

-  Applications  have  the  ability  to  dynamically  reconfigure  themselves  by  adding  to 
or  altering  their  functionality  during  runtime. 

•  event 

-  A  change  of  object  attribute  value,  an  interaction  between  objects,  an  instantiation 
of  a  new  object,  or  a  deletion  of  an  existing  object. 

•  interaction 

-  An  explicit  action  taken  by  an  agent  that  can  optionally  be  directed  toward  other 
agents  including  the  environment. 

•  model 

-  A  physical,  mathematical,  or  otherwise  logical  representation  of  a  system,  entity, 
phenomenon,  or  process. 

•  simulation 

-  A  method  for  implementing  a  model  over  time.  Also,  a  technique  for  testing, 
analysis,  or  training  in  which  real-world  systems  are  used,  or  where  real-world 
and  conceptual  systems  are  reproduced  by  a  model. 
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